my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","", { RaiseError
+ => 1 }) or die $DBI::errstr;