#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<h1>ENVIRONMENT</h1>\n";
for my $keys (%ENV)
  { print "<B>$_</B> = $ENV{$_}<br>\n"; }