#!/usr/bin/perl -wT

use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

my %dispatch = ( ''      => \&index,
                 page2   => \&page2,
                 page3   => \&page3,
                 default => \&index,
               );

my $page = param('page');

my $subref = $dispatch{$page} || $dispatch{default};

$subref->();