Wouldn't this work?

use File::Find;

eval {find(\&wanted, $ARGV[0])};
print "@found";

my @found = ();

sub wanted {
    push @found, $_;
    die if @found == 10;
}
[download]

    p