use File::Find;

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