for my $book ($db->resultset("Book")->search({'read' => 0})->all()) {
 print $book->title() . "\n";
}