#!/usr/bin/perl print "Content-type: text/html\n\n";$in = $ENV{'QUERY_STRING'};
$ipaddress = $ENV{'REMOTE_ADDR'}; #$mypath = $ENV{'SCRIPT_NAME'}; $mypath = $ENV{'SCRIPT_FILENAME'}; $mydoc = $ENV{'DOCUMENT_ROOT'}; #$myemail = = $ENV{'HTTP_FROM'};
#$ruser = $ENV{'REMOTE_USER'}; print "<h1>mypath $mypath ip $ipaddress emaddress $myemail doc $mydoc<h1>"; |