Select Code to Download

my @unread = $imap->unseen or warn "Could not find unseen msgs: $@\n";

        foreach my $f ($imap->folders) {
                print   "The $f folder has ",
                        $imap->unseen_count($f)||0, 
                        " unseen messages.\n";          
        }