in reply to Passing arguments to wanted subroutine in File::Find

You might want to look at my File::Finder: 
use File::Finder;
File::Finder->type('f')->eval(sub { your sub here })->in(@starting_poi
+nts);

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Seekers of Perl Wisdom