use Mail::Box::POP3; $url = "pop3://username:password\@server.address.com"; $pop = Mail::Box::POP3->new($url); ##

##

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;
}


##

##

This is a multi-part message in MIME format.
 
------=_NextPart_000_0009_01CA7F30.7F3A37C0
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: 7bit
 
From: sender@email.address
Sent: Wednesday, December 16, 2009 9:28 PM
To: test@email.address
Subject: This is the subject 
 
This is the body. 
 
------=_NextPart_000_0009_01CA7F30.7F3A37C0
Content-Type: text/html;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
 




This is the body.
 
 

------=_NextPart_000_0009_01CA7F30.7F3A37C0--