Select Code to Download

use File::Find qw( find );

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

use File::Find qw( find );

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