use CGI;
my $q = new CGI;
print $q->header;
for my $k (sort keys %ENV){
    print "$k=$ENV{$k}<BR>\n";
}