use Mail::POP3Client;
use MIME::Parser;

$pop = new Mail::POP3Client(	USER	=>	"hidden",
								PASSWORD=>	"hidden",
								HOST	=>	"hidden" );

@message = ($pop->Head(1),"\n",$pop->Body(1));

my $parser = new MIME::Parser;
$entity = $parser->parse_data(\@message);