sub findstuff {
  if (-d && $_ eq 'zz') {
    $File::Find::prune = 1;
    return;
  }
  # then other stuff as normal
}