You could use the Data::Dumper module to do some inspection for you...

use Data::Dumper;

...

my $msg_count = $pop->login( $user, $pass ) or do {
                print "Could not login.\n";
                next;
                };
print Dumper($msg_count);
[download]

and see if the returned value is truly undef or not.