print "Content-type: text/plain\n\n";
foreach (keys %ENV) {
  print "\$ENV{$_}\t$ENV{$_}\n";
}