my @nod;
eval {
    sub foo {die if (/^p/i); push @nod, $_}
    find (\&foo, "./");
};
print "$_\n" for @nod;