Yes: Instead of your reinvented-wheel dirwalk sub, use the standard File::Find module. It has a prune function (actually a flag) which lets you bail out based on any criteria, such as depth.