Help for this page
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;