Schau mal bei deinem beitrag bei debainaforum.de
http://www.debianforum.de/forum/viewtopic.php?t=76993
Da hast du von mir ein Beispiel wie man "File::Find" verwenden kann. :-)