sub wanted {
  if ($File::Find::name =~ m%^/path/detection%){
    $File::Find::prune = 1;
    return;
  }
}

require File::Find;
$File::Find::name  if 0;
$File::Find::prune if 0;