Select Code to Download

 foreach my $mbox qw( SPAM HAM ) {
   $imap->select($mbox);
...
   $imap->delete_message(@msgs);
   $imap->close();
 }

 use Mail::IMAPClient;
 my $imap = Mail::IMAPClient->new( Server       => 'imap.server.com:14
+3',
...
 }

 $imap->logout();