find({wanted => \&wanted,},'/tmp');

sub wanted {
 print "$File::Find::name\n";
}

##</code><code>##

find({wanted => \&wanted,
      preprocess => \&preprocess,
      postprocess => \&postprocess},'/tmp');

# wanted see above

sub preprocess {
 print "pre\n";
}

sub postprocess {
 print "post\n";
}

##</code><code>##

sub preprocess {
my @dir = @_;
print "pre\n";
return @dir;
}

##</code><code>##

/tmp
pre
/tmp/1
post