use File::Find;

find sub {
  print $File::Find::name if -f _;
}, '/some/dir';
[download]

As far as I know there is no full free online version of the cookbook. But it is available in the oreilly safari site.

Updated code fragment.