server2.cgi

#! /usr/local/bin/perl

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

print "Directory list of $ENV{PATH_INFO}:\n";
print "<PRE>\n";
print `ls -FC $ENV{PATH_INFO}`;
print "</PRE>\n";

print "<p>\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";