#!/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}};
[download]

• For brevity, I didn't check the return status of open, or close FILE. You should.
• You would "call" this like: www.here.com/linker.pl?Num=2
• Thanks to ar0n for reminding me to print CGI::header (I forgot it, at first)

Russ
Brainbench 'Most Valuable Professional' for Perl

Ick, duplicated code. :) You can use a hash, but why not an array?

my @pages = (
    'frontpage.html',
    'aboutus.html',
    'login.html',
);    # extra comma is there so adding new pages is easier

my $num = CGI::param('Num') || 1;
page($num - 1);        # or put a dummy at the start of @pages

sub page {
    $| = 1;
    my $num = shift;
    if (open(FILE, $pages[$num])) {
        print while <FILE>;
    }
}
[download]

A hash would work too, but if you're using numeric offsets already...

You could even make page 0 show stats.