#!/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'),	
		'<p>This is the index page!<br><br>',
		'<a href=index.pl?page=>index</a><br>',
		'<a href=index.pl?page=page2>page2</a><br>',
		'<a href=index.pl?page=page3>page3</a><br>',
		end_html();
}

sub page2 {
	print header(),
		start_html('PAGE_2'),	
		'<p>This is page2!<br><br>',
		'<a href=index.pl?page=>index</a><br>',
		'<a href=index.pl?page=page2>page2</a><br>',
		'<a href=index.pl?page=page3>page3</a><br>',
		end_html();
}

sub page3 {
	print header(),
		start_html('PAGE_3'),	
		'<p>This is page3!<br><br>',
		'<a href=index.pl?page=>index</a><br>',
		'<a href=index.pl?page=page2>page2</a><br>',
		'<a href=index.pl?page=page3>page3</a><br>',
		end_html();
}