print "
";
print "Good-bye Cruel World
\n";
####
##
use CGI;
use strict;
my $CGI = CGI->new;
# this assumes the creating HTML has a option list called
# my_menu
my $report_num = $CGI->param("my_menu");
# do some stuff to lookup the report based on $report_num ...
# output
print header;
my $t = HTML::Template->new(
filename => 'nc1_rpt1_summary.tmpl'
);
$t->param(
foo => 'FakeDomain.com',
stuff => "blah",
morestuff => "foobar",
%hashofstufffromDB,
);
print $t->output;