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