Hi,

ist das nicht eher ein Thema fürs "Allgemein" Forum?
Hier ist doch keine DB oder Verzeichnisdienst im Spiel, oder?

Ein paar Anmerkungen zum Skript:

• es verwendet "strict"; sehr gut.
• open() wird nicht auf Erfolg geprüft; schlecht
• print ins Dateihandle "out" wird nicht auf Erfolg geprüft; schlecht
• close des Dateihandle "out" wird nicht auf Erfolg geprüft; schlecht
• eigene Routinen sollte man ohne & aufrufen; es sei denn, man weiss, warum und braucht es
• Leere runde Klammern beim Routinen Deklarieren sind auch nicht notwendig; es sei denn, man weiss was es bedeutet und man braucht es

Insgesamt würde ich ebenfalls sagen, schau Dir File::Find an und erstelle Dir damit eine Lösung.