use File::Find qw( find );

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