for (my $i = 1; $i <= $tmessages; $i++) {
                if (!$imap->seen($i)) {
                        $nmessages++;
                }
        }