if (param('page') eq "") ##

##

   if ( ! defined(param('page')) )


##

##

#!/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'),    
      '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'),    
      '

This is page3! ', 'index ', 'page2 ', 'page3 ', end_html(); } #### Not enough arguments for index at C:\DocsMisc\PerlCode\index.pl line 8... etc. etc.'