use strict;
use warnings;
use File::Find;

##</code><code>##

Require File::Find; 
File::Find->import(qw(find));

##</code><code>##

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