initc9948ca9

Hi.

I cannot receive e-mail by pop3 using Mail::Transport.

I wrote following:

use Mail::Message;
use Mail::Transport::POP3;

my $msg = Mail::Message->new();
my $pop3conn = Mail::Message::POP3->new(
hostname => 'pop.domail.ru',
username => 'mypoplogin',
password => 'mypoppasswd');
if($pop3conn eq undef)
{
  print "no connection\n";
}
else
{
  print "connected\n";
  my $count = $pop3conn->messages();
  print "$count message(s):\n";
  foreach($pop3conn->ids())
  {
    my $ID = $_;
    $msg_size = $pop3conn->messageSize($ID);
    print "Size: $msg_size bytes\n";
    $msg = $pop3conn->receive($ID);
    my $subject = $msg->subject;
    print "Subject: $subject\n";
    
  }
  $pop3conn->disconnect();
}

So program runs to line $msg = $pop3conn->receive($ID); and ends.
How can I receive messages from my pop3-server? I read documentation,
there is text (Mail::Transport):

my $message = Mail::Message->new(...);
....
my $receiver = Mail::Transport::POP3->new(...);
$message = $receiver->receive;

It doesn't work.

-- 
Best regards,
Pavel Zotov                          mailto:pzotov@xxxxxxxx