package New;

sub new {
   my ($class,@arg) = @_;
   my $self = {};
   return bless $self,$class;
}

# pretend these return HTML pages generated via HTML::Template
sub index { "H::T index page" }
sub page2 { "H::T page2" }       # page 2 was easier than 1 ;)

1;