my $oParser = new MIME::Parser;
$oMail = $oParser->parse_open("test.eml");
print $oMail->print();