package Old;

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

# pretend these return HTML pages generated via CGI.pm
sub index { "CGI.pm index page" }
sub page1 { "CGI.pm page1" }
sub page2 { "CGI.pm page2" }
sub page3 { "CGI.pm page3" }

1;