#!/usr/local/bin/perl
# Simple Remote Host Identification

# <!--exec cgi="http://cosmos.npac.syr.edu:1972/cgi-bin/remote_host.pl"-->

print "Content-type: text/html\n\n";

#print "$ENV{'REMOTE_HOST'}\n";
$junk = `java HttpTester $ENV{'REMOTE_HOST'}`;
sleep(16);
#$speed = $cmd;
print "Alas with great regret I have to report that you are operatin from a line that is moving at a speed of $junk\n";