#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print "\n
\n"; print "
"; print "
";
print "";
print "";
print "Welcome \"$ENV{REMOTE_HOST}\"!!!";
print " "; print " My name is Blinky and I'm here to introduce you to"; print " your first CGI script. First, let me tell you some information."; print " Your current IP address is \"$ENV{'REMOTE_ADDR'}\" and"; print " you came to this page from this URL: \"$ENV{'HTTP_REFERER'}\""; print " The name of this script is \"$ENV{'SCRIPT_NAME'}\" and"; print " it is written in Perl, the most popular language used in writing CGI scripts."; print " "; print "Though this script is fairly simple, it gives you an idea of the many"; print " useful tasks that can be accomplished by using CGI scripts."; print " "; print "Your Perl scripts need to be uploaded in the \"cgi\" directory of your"; print " home directory. It is very important to note that Perl scripts must "; print "be uploaded in text/ASCII mode. To activate your script, send a message "; print "to websupport\@earthlink.net"; print " ";
print "Thanks for visiting,";
print " "; print " | ";
print "
"; print "