Hm, eventuell mit File::Find bzw. File::Find::Rule.
Wobei mir zumindest bei File::Find nichts einfällt, wie man verhindert, dass er ein Verzeichnis durchsucht.