this is my whole section in trouble:

open (GB, ">>guestlog2.htm") or die "cant open data file: $!\n";
flock(GB, 2) or die "can't LOCK_EX data file: $!";
@gb = <GB>;
@gb2 = ("dgfdhgfdhgfdh");
foreach $line (@gb) {
    push (@gb2,$line);
    if($line =~ /INSERT_NEW_ENTRY/g){
        push (@gb2,"<b>Name:</b> $FORM{'Name'}\r<p>\r<b>Date:</b> <i>E
+RROR! Notify Me!</i>\r<p>\r<b>E-mail Address:</b> <a href=\"$FORM{'em
+ailaddress'}\">$FORM{'emailaddress'}</a>\r<p>\r<b>Comments:</b> $FORM
+{'Comments'}\r<hr>\r");
    }
}
seek (GB, 0, 0) or die "can't rewind $data_file: $!";
truncate(GB,0);
print GB @gb2;
close (GB) or die "can't close data file: $!";
[download]