sub itm {
}

my $db = SQLite::DB->new($DBfile);                                              
$db->connect  or  croak "Can't connect to $DBfile, aborting\n";                 
$db->select("select * from item where date = $date", \&itm) or croak "Can't read items for '$date', aborting\n";