if (skip_this_directory()) {
  $File::Find::prune = 1;
}