sub parse_mail { my $mail = $_[0]; print $mail; open (MAIL,$mail) || die "Cannot open $mail, $!"; @mailf = ; chomp (@mailf); my $line; foreach $line (@mailf) { print $line; } print @mailf; close (MAIL) || die "Cannot close $mail, $!"; return @mailf; } #### Cannot close C:/windows/desktop/tmp/test.f2mail, Bad file descriptor #### Where ever there is confusion to be had... I'll be there.