#!/usr/bin/perl -w print "Content-type: text/html\n\n"; print "

";
foreach $key ( sort keys %ENV ) {
    print $key, ": ", $ENV{$key}, "\n";
}
print "

\n";