Probably what you want is File::Find, which will recurse subdirectories for you and you can specify what to do with each file. Read up on it around this site, there are a number of threads concerning how to use it.

Philosophy can be made out of anything -- or less