find(sub {
   if (...[ is dir to skip ]...) {
      $File::Find::prune = 1;
      return;
   }

   ...
}, $dir);