#!I:/Apache/Perl/bin/perl $clientip = $ENV{REMOTE_ADDR}; # get remote IP from environment # variable print "Content-Type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "Current IP Address: "; print $clientip; print "\n"; print "\n"; exit(0);