Select Code to Download

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

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

find({wanted => \&wanted,
      preprocess => \&preprocess,
...
sub postprocess {
 print "post\n";
}

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

/tmp
pre
/tmp/1
post