Soms is het wel eens handig om te weten wat het IP adres of hostname is van de verbinding waar je op dat moment gebruik van maakt. Ik heb een paar jaar geleden een Perl script gemaakt wat mij het IP adres en hostname kon vertellen van de huidige verbinding. Dit script ziet er als volgt uit:
#!/usr/bin/perl
$TimeNow = time;
($secs, $mins, $hour, $mday, $mon, $year,
$wday, $yday, $isdst) = localtime ($TimeNow);
$mon++;
$year = $year + 1900;
if ($mon < "10") { $mon="0$mon"; }
if ($mday < "10") { $mday="0$mday"; }
if ($hour < "10") { $hour="0$hour"; }
if ($mins < "10") { $mins="0$mins"; }
if ($secs < "10") { $secs="0$secs"; }
if ($wday eq 0) { $wday=7; }
print "Content-type: text/html\n\n";
print "DATUM TIJD : $year-$mon-$mday $hour:$mins:$secs\n";
print "HOSTNAME : $ENV{'REMOTE_HOST'}\n";
print "IP ADRES : $ENV{'REMOTE_ADDR'}\n";
print "HTTP VIA : $ENV{'HTTP_VIA'}\n";
print "USER AGENT : $ENV{'HTTP_USER_AGENT'}\n";
