#!/usr/local/bin/perl
         print "Content-type: text/plain\n\n";
         print "Directory I am currently seeing is:\n";
         print "\t", `pwd`, "\n";
         print "Script that is running now (this doesn't always work):\n";
         print "\t$ENV{'SCRIPT_FILENAME'}\n\n";
         print "Document root is reported as:\n";
         print "\t$ENV{'DOCUMENT_ROOT'}\n\n";
         print "Here are the environment variables:\n";
         foreach $key (sort keys(%ENV)) {
            print "\t$key: $ENV{$key}\n";
         }
         exit(0);