use IO::File;
use MIME::Parser ();
my $fh = IO::File->new('somemailfile','r');
my $parser = MIME::Parser->new();
$parser->output_to_core(1); # do everything in memory
my $mail_object = eval{ $parser->parse($fh) };