#!/usr/bin/perl
print "content-type:text/html\n\n";

#chdir("/home/srv/www/cgi-bin/");

print "SCRIPT_FILENAME: ",$ENV{SCRIPT_FILENAME},"<br><br>";

foreach my $key (keys %ENV) {print $key," :  ",$ENV{$key},"<br>";}
print "<br>";
print "working-dir: ",`pwd`;
print "<br><br><br><hr>";
print "<u><b>include path: </b></u><br><br>";
foreach my $line (@INC) {print $line," :  ",$line,"<br>";}