foreach my $mbox qw( SPAM HAM ) {
   $imap->select($mbox);
   my @msgs = $imap->search("ALL");
$imap->message_to_file("/home/mail/mbox/$mbox".".msgs",@msgs);
   $imap->delete_message(@msgs);
   $imap->close();
 }