#!/usr/bin/perl
use strict;

use Gantry::Server;

use lib '/home/pcrow/oldsrcgantry/docs/book/studies.old/ContactUs/lib';

use ContactUs qw{ -Engine=CGI -TemplateEngine=Default };

my $cgi = Gantry::Engine::CGI->new();

$cgi->add_location( '/', 'ContactUs' );

my $port   = shift || 8080;
my $server = Gantry::Server->new( $port );

$server->set_engine_object( $cgi );
$server->run();
