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();

##</code><code>##

use strict;
use Mail::POP3Client;
my $pop3 = new Mail::POP3Client( HOST  => 'biztos.com' );
$pop3->User( "somebody" );
$pop3->Pass( "doublesecret" );
$pop3->Connect() || die "failed: $pop3->Message()\n";
$pop3->Close();

##</code><code>##

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();