use strict;
use Mail::POP3Client;
my $pop3 = new Mail::POP3Client();  # with & without the host
$pop3->User( "somebody" );
$pop3->Pass( "doublesecret" );
$pop3->Connect();
if ($pop3->Alive()) {
  # connection established
} else {
  # no connection
}
$pop3->Close();