I was actually able to do it using MBoxParser
Here is some sample code:

#!/usr/bin/perl

use strict;
use Mail::MboxParser::Mail;

my $msg = Mail::MboxParser::Mail->new([<STDIN>],[<STDIN>]);
print $msg->from->{email} . "\n";
my $body = $msg->get_entity_body() . "\n";
print $body;
[download]

Neil Archibald
- /dev/IT -