open(GUESTBOOK, ">>", $guestbook) || die "Could not open guestbook\n";