use Mail::Box::Manager;
$mgr    = Mail::Box::Manager->new;
$pop = $mgr->open(type => 'pop3',
            username => 'my@email.address',
            password => 'mypasswordxxxxx',
            server_name => 'my.mail.server');

foreach $msg ($pop->messages) 
{
	$content_type = $msg->contentType;
	$from_address = $msg->sender->address;	
	$body = $msg->decoded;
}