The Ram speaketh:

use File::Find;
sub process_file {
    #do what you want to a file
}
find(\&process_file, /this/is/a/directory/to/parse
[download]

Please see the File::Find docs for more information.