my $dbfile = "$photos_root/digikam4.db";
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "") or die "Cannot access $dbfile\n";
my $dbfile = "$photos_root/digikam4.db";
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "") or die "Cannot access $dbfile\n";