Be wary of the File::Find module, its has a memory leak. I discovered it while writing a program to traverse our file server. It eventually crashed our server. See File::Find memory leak

That prompted this solution An alternative to File::Find as an alternative.

Dean