#!perl

#Make sure that the above line is at the very top, not several lines down!

#This is the NT and MacPerl test script.  Rename it to test.pl and install it
#into the directory that your scripts are supposed to go into and point your
#web browser to this file.  You must transfer it as ASCII text.  If it doesn't
#work, ask your server administrator why.  If it does, all you have to do is
#figure out how to reference the directories you need to reference

print "Content-type: text/html\n\n";
print "
The results below contains some of your system variables and information
about your system.  Pay special attention to the items that are in <B>bold</B>,
since they will be most useful to you in figuring out the path/s you need to
use.  You will not be able to use any of these values directly, but they may
show parts of the full system path that you can't see using FTP or telnet.<pre>\n\n";
foreach $key (sort(keys(%ENV))) { 
if ($key eq "SCRIPT_FILENAME" || $key eq "DOCUMENT_ROOT" || $key eq "PATH_TRANSLATED"){
print "<B>$key=$ENV{$key}</b>\n"; }
else{
print "$key=$ENV{$key}\n"; 
}
}