#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<pre>";
foreach $key ( sort keys %ENV ) {
    print $key, ": ", $ENV{$key}\n";
}
print "</pre>\n";