#!/usr/local/bin/perl
open (LOG, "<../logfile1.txt") ||ErrorMessage();
@logmessages =<LOG>;
close (LOG);
print "Content-type:text/html\n\n";

print "<UL><H1><font=blue>Today Social Numbers Entered </font></H1></UL>";
$n=1;
print "<table border=5 width=40%>\n";
print "<tr><th>Order Table Log\n";
foreach $message(@logmessages) {
print "<h2><tr><td>Social Security Number $n was <h2>$message</h2>\n";
$n++;
}
print "</table>\n";

sub ErrorMessage {
print "Content-type: text/html\n\n";
print "The server can't find the file. It either doesn't exist or the
permissions are wrong. \n";
exit;}

