print "Content-Type: text/html\n\n";
for my $k (keys %ENV) {
    print $k, " = ", $ENV{$k}, "\n";
}