As File::Find has been talked about so much recently, I've added a snippet about going it alone withouth File::Find here.

You might find this code helpful as you can modify it to prune the recursion whenever you like.