my $dbh = DBI->connect(
    "dbi:SQLite:$dsn", '','', { RaiseError => 1, AutoCommit => 0 }
  ) or die "$DBI::errstr\n";