Select Code to Download

open(FILE, $mail);
@mailf = map { chomp; $_ } <FILE>;
close(FILE);
# now process $mail[n]

@mailf = <FILE>;
chomp(@mailf);