my $mail_file = $ARGV[0];
open my $mail_fh, "<", $mail_file or die "Couldn't open '$mail_file': $!";