#!/usr/local/bin/perl
#
# NOTE: it looks at the url that called this script, and reports it.

print "ContentType: text/html\n\n";
print "http://", $ENV{'SERVER_NAME'};
print ":", $ENV{'SERVER_PORT'} if ($ENV{'SERVER_PORT'} ne "80");
$earl = $ENV{'DOCUMENT_URI'};
$earl =~ s/index\.html$//;
print $earl;