Select Code to Download

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

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

use strict;
use Mail::POP3Client;
my $pop3 = new Mail::POP3Client();  # with & without the host
...
  # no connection
}
$pop3->Close();