Retrieve mails from mailserver

[sbettadpur]

Hi everybody,

Iam struggling for retrieve mails from mail server using perl
iam facing some problem in blow my code
even i have the mails in my mailserver iam not getting the count of mails
only iam getting count as -1
what was the problem can any body reply back

look at my code

$pop = new Mail::POP3Client(USER => $username,PASSWORD => $passwd, HOST=> $host,PORT=> $port,TIMEOUT =>20,AUTH_MODE => 'BEST',DEBUG => 1) ||  die "cannot establish connection with the pop3 mail server $host, $!";
print "Connection  established";
print $pop->Count();
print "<table align=center>";
for ($i=1; $i<=$pop->Count(); $i++)
{
    foreach ( $pop->Retrieve( $i ) )
    {
        print "<tr><td>$_</td></tr>\n";
    }
}
print "</table>";
 

thanking you.

Regards,
shiva krishna

[numberwhun]

In looking at the page on CPAN for Mail::POP3Clien t , I found the following line:

new returns a valid Mail::POP3Client object in all cases. To test for a connection failure, you will need to check the number of messages: -1 indicates a connection error.
 

The -1 that you are getting is saying that there is a problem with the connection. I would check and make sure that you can login with the ID/Password you are specifying. Also, I would ensure that the mail system you are connecting to supports POP3.

Regards,

Jeff