Select Code to Download

sub lock {
  flock(MBOX,LOCK_EX);
...
  # while we were waiting...
  seek(MBOX, 0, 2);
}

open (BADADDR, ">>badmails.csv") || die; 
truncate (BADADDR,0) || die;
open (GOODADDR, ">>goodmails.csv") || die;
truncate (GOODADDR,0) || die;