Using preprocess option can get rid off of unwanted Subversion or CVS directory

    find {wanted=>sub {
        my $fname = $_;
        if (-f $fname) {
            foreach my $type (qw(pl pm)) {
                my (undef, $ext) = split (/\./, $fname);
                if (defined($ext) && $ext eq $type) {
                    push(@files, $File::Find::name);
                }
            }
        }
    }, preprocess=>sub {return grep{!/^.svn|CVS$/}@_}}, $dir;
[download]