$first_name Page

#! /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.5.txt"; # While there is still file left while (){ # Print out the line I just read... ($first_name,$last_name)=split/ /,$_; print ""; }; # When I am done, close the file up. close FILE; # and print out the close of the table print "
"; print "First name = $first_name"; print " "; print "Last name = $last_name"; # Go to the next row... print "

"; print "

Source

\n"; print "";