my $dbh = DBI->connect('dbi:SQLite:dbname=foo.db',undef,undef,
   { RaiseError=>1 }
) or die $DBI::errstr;