Matt's Pies

find_files.pl

use File::Find;

$search_dir = '.';

find sub {
  return if -d;
  push @remote_file_names, $File::Find::name;
  }, $search_dir;

foreach(@remote_file_names)
{
  print "$_\r\n";
}

##
# OR 
##

system("find $search_dir -type f");