use File::Find qw( find );

my $obj=Some::Class->new(...);
find(sub { $obj->someEntry($_) },...);

##</code><code>##

use File::Find qw( find );

sub myMethod
{
    my $self=shift;
    find(sub { $self->otherMethod($_) },...);
}