$dbh = DBI->connect("dbi:SQLite:dbname=projectory.sqlite3","","") or die "$DBI::errstr\n";