email problem

Problem how to read all messeges from email server ,i write code
but i do not see messeges on perl.

 #!/usr/bin/perl -w
      use Net::POP3;
      $mail_server='pop.mail.ru';
      $username='user';
      $password='pass';
      $pop = Net::POP3->new($mail_server)
       or die "Can't open connection to $mail_server : $!\n";
       $pop->login($username, $password)
       or die "Can't authenticate: $!\n";
       $messages = $pop->list
      or die "Can't get list of undeleted messages: $!\n";
    foreach $msgid (keys %$messages) {
    $message = $pop->get($msgid);
     unless (defined $message) {
        warn "Couldn't fetch $msgid from server: $!\n";
        next;
    }
    
    $pop->delete($msgid);
   }

Code (markup):

 

This tutorial might help you.