my $dbfile = "/media/DOOMGL/perl/db.sqlt";

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "")
  or die $DBI::errstr;