sub parse_mail {
    my @mail;
    foreach my $mail ( @_ ) {
        open (MAIL,$mail) || die "Cannot open $mail, $!";
        push @mailf, <MAIL>;
        chomp (@mailf);
        close (MAIL) || die "Cannot close $mail, $!";
    }

    return @mailf;    
}