use CGI qw(:standard :cgi-lib);

print header;
print "<html>";
foreach my $key (keys %ENV) {
    print "$key $ENV{$key}<br />";
}
print "</html>";