While playing with Net::POP i wrote a very small basic script that tells you if you have mail and how many, when i run it with an incorrect password i get Use of uninitialized value in numeric eq (==) at /usr/lib/perl5/site_perl/5.6.0/Net/POP3.pm line 287. It might just be me but i wouldn't expect it to start spitting out warnings, i'd expect it to die

#! /usr/bin/perl -w
use strict;
use Net::POP3;
 
my $POPObj = Net::POP3->new("mail.myisp.net", Timeout => 10);
my $Ret = $POPObj->login("AnonMonk", "BrokenPass");
 
if ($Ret) {
  if ($Ret eq "0E0") {
    print "You have no messages...\n";
  } elsif ($Ret) {
    print "You have $Ret messages\n";
  }
} else {
  print "Something went wrong...\n";
}
 
$POPObj->quit();
[download]

Views and maybe answers welcome.