http://www.perlmonks.org?node_id=370570


in reply to When should a wheel be reinvented

In this specific case, File::Find::Rule might fix the problem for you.