#!/usr/bin/perl -wT
use strict;
use CGI ':all';
use CGI::Carp qw(fatalsToBrowser);

if ( ! defined(param('page')) ) {
  index_page();
}

elsif (param('page') eq "page2") {
  page2();
}

elsif (param('page') eq "page3") {
  page3();
}

sub index_page {
  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();
}