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

##</code><code>##

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

##</code><code>##

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');

##</code><code>##

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

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