1 #!/usr/bin/perl -w
  2 
  3 use strict;
  4 use Mail::IMAPClient;
  5 
  6 my $from = Mail::IMAPClient->new( Server => $ser1,
  7                                     User => $usr1,
  8                                     Password => $pass1
  9                                  );
 10 my $to = Mail::IMAPClient->new( Server => $ser2,
 11                                     User => $usr2,
 12                                     Password => pass2
 13                                  );
 14 
 15 $from->select("INBOX.Mymails");
 16 $from->migrate($to, 31, "INBOX.Mymails");