52 04

|^< Netscape - [http://www.he.net/~mcs/rhost.pl.txt]

File Edit View Go Bookmarks Options Directory Window Help

		&	✓			.9.?.	a		#
Back	Forward	Home	Edit		Images		Print	Find	Stop

^ Location: | http: //www. he. net/~mcsAhost. pl. txt

What‘s New? | What‘s Cool? | Destinations | Net Search | People | Software |

#!/usr/bin/per1

$ r emot e_addr e s s = $ENV{¹ RE HOTE_AD D R¹};

$remote_host = $ENV{¹REHOTE_HOST‘};

$referral_address = $ENV{¹HTTP_REFERER‘};

Bsubnet_numbers = split (/\./, $reroote_address); $packed_address = pack ("C4", Bsubnet_numbers);

($remote_host) = gethostbyaddr ($packed_address, 2);

print '	'Content-type:	text/html", "\n\n";
print '	^r<pre>";
print '	'Remote Address	: ", ?remote address, ^1
print '	'Remote Host:	", ?remote host, "\n‘
print '	^fYou came from:	", Sreferral address,
print '	datę', "\n";
print '	^rThis server: "	, 'uptime', "\n";
print '	'</pre>";
exit(0)

•y/sal Document: Done a?