!/usr/bin/perl # ip.cgi # Feb 27, 2008 4:05:54 PM # jeff hardy (hardyjm at potsdam dot edu) # ip address reflector use strict; print "Content-type: text/html\n\n"; print ""; print "

$ENV{REMOTE_ADDR}



\n\n"; print "$ENV{HTTP_USER_AGENT}

\n\n"; print "";