The following lines were added (+) and removed (-):
open (GUEST,">$guestbk") || die "Can't Open $guestbookreal: $!\n"; <nowiki>open (GUEST,">$guestbk") || die "Can't Open $guestbookreal: $!\n";</nowiki> print GUEST "<H1>New Guestbook Entry</H1>\n"; <nowiki>print GUEST "<H1>New Guestbook Entry</H1>\n";</nowiki> print GUEST "$FORM{'realname'}</a></b>"; <nowiki>print GUEST "$FORM{'realname'}</a></b>";</nowiki> print GUEST "<b>Time: </b>$date<br>\n"; <nowiki>print GUEST "<b>Time: </b>$date<br>\n";</nowiki> print GUEST "<b>Comments: </b>$txtComments<br>\n"; <nowiki>print GUEST "<b>Comments: </b>$txtComments<br>\n";</nowiki>