my $dbh = DBI->connect(
    "dbi:SQLite:dbname=SSBHLD2.db",
    "",
    "",
    { RaiseError => 1,
      Autocommit => 0
    },
) or die $DBI::errstr;