Warum gräbst Du so einen alten Thread aus anstatt einfach einen neuen zu öffnen?
Was lässt Dich annehmen, dass hier nichts los sei und Du keine Antwort kriegen würdest?

Zum Programm sei Dir die Verwendung von File::Find oder File::Find::Rule angeraten.

Beispiele dazu sollte es hier ausreichend geben.
Z.B. Alle Dateien eines Formats suchen...