#! perl
use strict;
use warnings;
use Email::Simple;

my $file = 'YourEmailHere.eml';

open(my $fh, '<', $file)
    or die "Cannot open file '$file' for reading: $!";

my $text = do { local $/; <$fh>; };

close $fh
    or die "Cannot close file '$file': $!";

my $email   = Email::Simple->new($text);
my $from    = $email->header('From');
my $subject = $email->header('Subject');

print "FROM:    $from\n";
print "SUBJECT: $subject\n";