In perl you can solve the arguments to a callback problem by using a closure:

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