for ($db = 0; $db < @dbfn; $db++) {
    $dbs[$db] = shared_clone({});
    tie %{$dbs[$db]}, "DB_File", $dbfn[$db], O_RDONLY
       or die ((caller 0)[3]. " can't tie "  . $dbfn[$db] . ": $!");
    $dbModTime[$db] = (CORE::stat($dbfn[$db]))[9]
       or die ((caller 0)[3]. " can't stat " . $dbfn[$db] . ": $!");
    $s->log->notice ($dbfn[$db]." has "
                         .scalar(keys(%{$dbs[$db]}))." entries");
  }