my $books = Books->find('read = ?', 0); while (my $book = <$books>) { ... }