Select Code to Download

my @found;
find(sub { push @found, $File::Find::name; }, @directories);
...
    next if !check($_);
    ...
}

my @found;
find(sub { push @found, $File::Find::name if check($File::Find::name);
+ }, @directories);
...
for (@found) {
    ...
}