#!/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;