use strict;
use CGI;
use HTML::Template;
my $cgi = CGI->new();
my $data = do { local $/; };
my $template = new HTML::Template(
scalarref => \$data,
associate => $cgi,
);
$template->param(
url => $cgi->script_name(),
);
print $cgi->header(), $template->output();
__DATA__
test
You submitted