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

# wanted see above

sub preprocess {
 print "pre\n";
}

sub postprocess {
 print "post\n";
}