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