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