chomp ($message); 
open (ENTRY, ">>guestbook2.txt") ||ErrorMessage;
flock(ENTRY, 2);
print ENTRY "$name|$email|$url|$location|$message|$thisday 
$thismonth $mday, $thisyear\n";
flock(ENTRY, 8);
close (ENTRY);