use File::Find;
use Cwd;
$\ = "\n";
my @files;
find sub {
    print $File::Find::name if -f;
    # or: 
    push @files, $File::Find::name if -f;
}, @ARGV ? @ARGV : cwd;  # pass dir(s) as command line argument, or us
+e current directory
[download]