Select Code to Download

my $newfile = undef;
finddepth(
...
);
done_finddepth:
die "the new file is $newfile";

    my $count = 0;
    &find(
...
         $count++;
        File::Find::breakout() if $count == 500;
    }, '/');