Your code can set $File::Find::prune

Thanks! I missed the part about prune when I looked at the File::Find perldoc! Didn't read careful enough.