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