#!/usr/bin/perl -wT use strict; use CGI ':all'; use CGI::Carp qw(fatalsToBrowser); if (param('page') eq "") { &index; } elsif (param('page') eq "page2") { &page2; } elsif (param('page') eq "page3") { &page3; } sub index { print header(), start_html('INDEX'), '
This is the index page!
',
'index
',
'page2
',
'page3
',
end_html();
}
sub page2 {
print header(),
start_html('PAGE_2'),
'
This is page2!
',
'index
',
'page2
',
'page3
',
end_html();
}
sub page3 {
print header(),
start_html('PAGE_3'),
'