print "Content-type: text/plain\n\n";
my $key;
foreach $key ( keys %ENV ) {
    print $key, " = ", $ENV{$key}, "\n";
}
print "---\n";
foreach $key ( keys %INPUT ) {
    print $key, ": ", $INPUT{$key}, "\n"
}
exit(0);