server1.cgi

#! /usr/local/bin/perl

print "content-type:  text/html\n\n";

print "Environment:";
print "<HR>\n";
print "<PRE>\n";

foreach (sort(keys %ENV)) {
  print "$_ = $ENV{$_}\n";
}
print "</PRE>";
print "<HR><PRE>\n";
print "PWD = ",`pwd`;
print "</PRE><HR>\n";