#! perl 
print "Content-type: text/plain\n\n";
$, = "\n";
print map { "$_: $ENV{$_}" } keys %ENV;