finddepth - traverse a directory structure depth-first
use File::Finddepth;
finddepth(\&wanted, '/foo','/bar');
sub wanted { ... }
This is just like File::Find, except that it does a depthfirst
search uses finddepth() rather than find(), and performs a
depth-first search.