#!/usr/bin/perl -T # this stores the caller's IP in a file (for logging) and displays it. $ipfil = open IPFIL, "+>", "/home/www/village/public_html/my_ip"; print IPFIL $ENV{"REMOTE_ADDR"}; print "Content-Type: text/plain\n\n"; print "your IP Address is $ENV{'REMOTE_ADDR'}\n";