my $imap_client = Mail::IMAPClient->new( Server => 'imapserver.com:143',
                                          User => 'uname',
                                          Password => 'pass')
        or die "IMAP Failure: $!";

 foreach my $box qw( SPAM HAM ) {
   my $imap = $mgr->open(       type            =>      'imap',
                        imap_client     =>      $imap_client,
                        folder          =>      "$box")
        or die "Couldn't create IMAP Client: $!\n";

   open (MBOX, ">/home/mail/mbox/$box")
        or die "Couldn't create MBOX folder: $!\n";
   close(MBOX);

   my $mbox = $mgr->open( type => 'mbox',
                        folder => "/home/mail/mbox/$box",
                        access => 'rw')
        or die "Couldn't open MBOX folder\n";

   my @msgs = $imap->messages('ALL')
        or die "Couldn't get all messages\n";

   $mgr->copyMessage($mbox,@msgs)
        or die "Couldn't copy messages\n";

#   ... I know the msgs delete code goes here ...
}

$imap->logout();