Select Code to Download

use Mail::Box::Manager;
use Mail::Box::Tie::HASH;
...
while (my $msgid = each %orig) {
    $copy{$msgid}->delete;
}

$ perl -MMail::Box::Manager -le '$,="\n"; print Mail::Box::Manager->ne
+w->folderTypes'
imap
...
mh
pop
pop3