#!/usr/bin/perl print "Content-type: text/html\n\n"; print "IP Address Display\n"; print "

IP Address Display

\n"; $ip = $ENV{'REMOTE_ADDR'}; print "You are using ip address $ip\n"; print "

\n"; print "\n";