- or download this
my $guest_file = "../new_guestbook.html"
# ^
# Insert semicolon here ----------------/
- or download this
seek GUEST, 0,0; # Filehandle should be GUESTS
- or download this
foreach my $guest (@guest) { # Should have been @guests
- or download this
open (GUESTS, "+>> $guest_file") or
or die "Can't open $guest_file: $!";