http://lezar.org/path/to/script/myscript?where=someval

##</code><code>##

#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;

my $taintedWhere = param( 'where' );
my $where = ( $taintedWhere =~ /(\w+)/ );

if ( $where eq 'Front' ) {
    print header;
    print <<"    Mn";
    
    Some HTML

    Mn
} elsif ( $where eq 'WebMail' ) {
    print header;
    print <<"    WbMl";

    Some more HTML

    WbMl
} else {
    # $where is not what we expect, so we have an error routine here;
}

##</code><code>##

use CGI::Carp qw( fatalsToBrowser );