my $dbh = DBI->connect( 'dbi:SQLite:dbname=db1', "", "", {Taint=>1} ) or die $DBI::errstr;