Select Code to Download

use DB_File;
my @dbs;        # array of hash references
my @dbModTime;  # mod times of db files
...
       or die ((caller 0)[3]. " can't stat " . $dbfn[$db] . ": $!");
  }
}

use threads;
use threads::shared;
my @dbs       :shared;   # array of hash references
my @dbModTime :shared;   # mod times of db files

  for ($db = 0; $db < @dbfn; $db++) {
    $dbs[$db] = shared_clone({});
...
    $s->log->notice ($dbfn[$db]." has "
                         .scalar(keys(%{$dbs[$db]}))." entries");
  }

httpd in free(): error: chunk is already free

Abort trap (core dumped)
Error invoking apachectl start command