Select Code to Download

open(MYFILE, ">>$myfile") || die;
flock(MYFILE, 2) || die;
print MYFILE "Cottleston Pie\n";
close(MYFILE);

#!/usr/bin/perl
...
print "You are now in my list, $newfriend!\n"
exit;

  open(MYFILE, ">$myfile") || die;

  flock FILEHANDLE, OPERATION

  sub LOCK_SH { 1 } ## shared lock
  sub LOCK_EX { 2 } ## exclusive lock
  sub LOCK_NB { 4 } ## non-blocking
  sub LOCK_UN { 8 } ## unlock

#!/usr/bin/perl
...
print "You are in my list, $newfriend!\n"
exit;

  flock(MYFILE, 1);

  flock(MYFILE, 2);

  open(MYFILE, "+< $myfile") || die;

  seek(MYFILE, 0, 0); truncate(MYFILE, 0);