Select Code to Download

use strict;
use File::Glob qw(bsd_glob); # switch on sane whitespace semantics for
+ glob
...

print "I found the following files:\n";
print "$_\n" for @files;

use strict;
use File::Find;
...
find(sub { push @files, $File::Find::name }, '.');
print "I found the following files:\n";
print "$_\n" for @files;