in reply to How do I recursively process every file in a given directory?

You can also use File::Recurse 

use File::Recurse;

recurse(\&function, "/path/to/directory/to/recurse");

exit;

sub function {
    shift;
    print "$_\n"  ;
}

[download]

In Section Seekers of Perl Wisdom