use strict;
use warnings;
use CGI qw(:standard);
print header,
start_html(
-title => 'Testing 1-2-3',
-bgcolor => '#c0c0c0',
),
ul(li[map qq|$_ => "$ENV{$_}"|,keys %ENV]),
end_html,
;
####
use strict;
use warnings;
use CGI qw(header);
use HTML::Template;
my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(env => [
map {{
key => $_,
val => $ENV{$_},
}} keys %ENV
]);
print header, $tmpl->output;
__DATA__
Testing 1-2-3
##
##
# look ma, no slashes!
print qq|${var} = "${val}"\n|;
print q|\n|;