use strict;
use Mail::POP3Client;
my $pop3 = new Mail::POP3Client();  # default is localhost
$pop3->User( "somebody" );
$pop3->Pass( "doublesecret" );
$pop3->Connect() || die "failed: $pop3->Message()\n";
$pop3->Close();