#!/usr/bin/perl print "Content-type: text/html\n\n"; print "foo\n"; use CGI qw(:standard Vars); $data_file=(param('data')); unless ($data_file) { $data_file="home"; } print <<'TOP'; Lizard Light Productions
TOP if ($data_file=~/[a-z0-9]/) { if ($data_file=~/portfolio/) { $data_file="portfolio2"; } if ($data_file=~/native_american/) { $data_file="gallery/test/gallery"; } $data_file="$data_file.html"; if ($data_file=~/contact/) { $data_file="contact2.php"; } print " \n"; } print <<'BOTTOM';
BOTTOM