Perl Script Welcome
for more information.
#!/usr/bin/perl
require("cgi-lib.cgi");
if ($ENV{'REMOTE_HOST'} ne "")
{
print "You are <STRONG>$ENV{'REMOTE_HOST'}</STRONG>";
}
if ($ENV{'HTTP_REFERER'} != "")
{
print "You came from <STRONG>$ENV{'HTTP_REFERER'}</STRONG>";
}
if ($ENV{'HTTP_USER_AGENT'} ne "")
{
print "You are using <STRONG>$ENV{'HTTP_USER_AGENT'}</STRONG>.";
}
exit;