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");

##</code><code>##

Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/5.8.8/Mail/IMAPClient.pm line 773, <STDIN> line 2.
Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/vendor_perl/5.8.8/Mail/IMAPClient.pm line 773, <STDIN> line 2.