or download this
#!/usr/bin/perl
use utf8;
...
$dbh2 = DBI->connect("dbi:SQLite:$PathCorpusDB2", "", "", { RaiseError
+ => 1, AutoCommit => 1, PrintError => 1 });
my $AllDbText_ref2 = $dbh2->selectall_arrayref("SELECT filename FROM d
+ata");
$dbh2->disconnect;