sub foo {
    my $arg1 = ....;
    my $arg2 = ....;
    find({ wanted => sub { wanted($arg1, $arg2) }, ...});
}
[download]

It's true that globals are messy, but that is the way File::Find works. To avoid unexpected behavior with lexical closures, I declare the globals with use vars qw/. . ./; to place them in the symbol table and satisfy strict.

It sounds as if your uses for this are mainly as configuration flags which will not be changed during a run. That is pretty manageable as global variables go.

Update: ++thospel's solution takes advantage of lexical closures to place a wrapper around the find call. Very elegant!. Added: On second look, I think that solution may still have difficulty with closures taking on unexpected values. Localizing the variables may be preferable. Test before you leap.

use File::Find ();     

    look_for_this_ext( 'pl', '.' );

sub look_for_this_ext {
    my  $this_ext  = shift;
    my  $this_tree = shift;

    my  $wanted = sub {
      # print "  I see '$_'\n";
        print "  '$_'\n"  if /\.${this_ext}\z/;
    };

    File::Find::find( 
        { bydepth => 1,
          no_chdir =>1,
          wanted  => $wanted,
        },
        $this_tree,
    );
}
__END__
  './anony001.pl'
  './anony002.pl'
  './jmw1.pl'
  './liz.pl'
  './template0.pl'
  './demerphq/treap.pl'
[download]

use File::Finder;
File::Finder->type('f')->eval(sub { your sub here })->in(@starting_poi
+nts);
[download]