qq(dbi:SQLite:dbname=$db,'','',{ ...

##</code><code>##

qq(dbi:SQLite:dbname=$db),'','',{ ...

##</code><code>##

my $dsn = "qq(dbi:SQLite:dbname=$db)";
my $user;
my $password;
my %dbi_options = (
    RaiseError => 1,
    PrintError => 1,
    sqlite_open_flags => SQLITE_OPEN_READONLY,
);

my $dbh = DBI->connect($dsn, $user, $password, \%dbi_options);