#! /opt/local/bin/perl use CGI qw(:standard); import CGI font; print "Content-type: text/html\n\n"; print ""; print " $first_name Page \n"; print ""; print "

The following people have come to my site:

\n"; # Set up a table print "
"; # Open a file for reading... open FILE, "visitors.txt"; # While there is still file left while (){ # Print out the line I just read... print "$_"; # Followed by a break... print "
"; }; # When I am done, close the file up. close FILE; # and print out the close of the table print "

"; print "

Source


\n"; print "";