Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    use File::Find;
    
  2. or download this
    Require File::Find; 
    File::Find->import(qw(find));
    
  3. or download this
    sub wanted {
      if ($File::Find::name =~ m%^/path/detection%){
        $File::Find::prune = 1;
        return;
      }
    }