#! /usr/bin/perl open (GBOOK, "guestbook.txt"); @entries = ; close (GBOOK); print "Content-Type: text/html\n\n"; print ""; foreach $entry(@entries) { @singles = split (/#/, $entry); print "$singles[0]\n"; print "

\n"; } print "";