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