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