Sorry for a very late reply to an old post.

I do not see how is

# create various wnated functions
my $wanted= make_wanted( \&wanted_1, 'toto', 'tata');
find( $wanted, '.');
print "\n";
[download]

better than

find( sub{ wanted_1( 'toto', 'tata')}, '.');
print "\n";
[download]

If you did want to play around I'd suggest something a bit different.

use File::Find;

sub callback (&) {
  my $sub = shift();
  return sub {
    my @args = @_;
    return sub {
      $sub->(@args);
    }
  }
}

my $wanted = callback {
    my ($some, $params) = @_;
    print "wanted( $some, $params); \$_ = $_\n";
    # ...
};

find( $wanted->(1,2), 'd:\temp\copy');
find( $wanted->(20,19), 'd:\temp\copy');
[download]

or even better

#...
*wanted = callback {
    my ($some, $params) = @_;
    print "wanted( $some, $params); \$_ = $_\n";
    # ...
};

find( wanted(1,2), 'd:\temp\copy');
find( wanted(20,19), 'd:\temp\copy');
[download]

How do you like this one?