Have you tried to use the login method to login to your POP3 Mail account. The return value is the number of messages in the mailbox, and undef if login fails.

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use Net::POP3;
use Term::ReadKey;

# Read the mail accounts from a file called addresses
# which resides in the script's directory
open ADDRESSES, "./addresses";
# read all the lines
my @addys = <ADDRESSES>;
# close address file
close ADDRESSES;

# do the following for every address
foreach my $address (@addys)
{
        # split address into username and hostname
        my ($user, $host) = $address =~ /(\S+)\s(\S+)/;

        # let the user enter his password
        print "Please enter the password for  $user\@$host\:";
        ReadMode( "noecho" );
        my $pass = ReadLine();
        ReadMode( "normal" );
        print "\n";

        # connect to host
        my $pop = Net::POP3->new( $host ) or do {
                print "Could not initialize connection.\n";
                next;
                };

        print "Connected to $host.\n";

        # send USER
        my $msg_count = $pop->login( $user, $pass ) or do {
                print "Could not login.\n";
                next;
                };

        # print number of msg or complain about failed login
        if (defined $msg_count)
        {
                $pop->quit();
                print "Messages: $msg_count\n";
        } else {
                print "Login failed.\n";
        }
}

[download]

In reply to Re: How to check number of messages using Net::POP3? by Roger
in thread How to check number of messages using Net::POP3? by BjoernD

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.