#!/usr/bin/perl
use warnings;
use strict;

use Mail::Box::POP3;

my $popserver  = 'pop.yandex.ru';
my $imapserver = 'imap.example.com';

while( <> )
{   my ($user, $poppasswd, $imappasswd) = split /\,/;
    $imappasswd ||= $poppasswd;

    my $pop = Mail::Box::POP3->new
                ( server_name => $popserver
                , username    => $user
                , password    => $poppasswd
                )
      or die "cannot login POP to $user:$poppasswd@$popserver";

    print "Copying ",scalar($pop->messages)." messages for $user\n";

    my $imap = Mail::Box::IMAP4->new
                 ( server_name => $imapserver
                 , username    => $user
                 , password    => $imappasswd
                 , access      => 'w'
                )
      or die "cannot login IMAP to $user:$imappasswd@$imapserver";

    $pop->copyTo($imap);

    $pop->close();
    $imap->close();
}

print "Ready...\n";
