use Mail::POP3Client;

$pop2 = new Mail::POP3Client( HOST  => "xxx.xxx.xxx.xxx" );
  $pop2->User( "user" );
  $pop2->Pass( "pass" );
  $pop2->Connect() >= 0 || die $pop2->Message();
  $pop2->Alive;
  $pop2->Close();