#!/usr/bin/perl -Tw

use strict;
use CGI;

my %Pages =
  (1    => sub {open FILE, 'frontpage.html'; print while <FILE>},
   2    => sub {open FILE, 'aboutus.html';   print while <FILE>},
   3    => sub {open FILE, 'login.html';     print while <FILE>},
   42   => \&showStats);

my $Num = CGI::param('Num') || 1; #If we don't get a number, show the front page

print CGI::header(); 
&{$Pages{$Num}};