my $dbh = DBI->connect("dbi:SQLite:dbname=$database", 
                undef, 
                undef, 
                { 
                  AutoCommit => 0,
                  RaiseError => 1,
                  on_connect_do => "PRAGMA foreign_keys = ON",
                  sqlite_open_flags => "DBD::SQLite::OPEN_READONLY",
                })
        or die("Could not open database '$database': $!\n");