Select Code to Download

use Path::Class qw/dir/;
my @files = dir('foo', 'bar quz', 'baz')->children;
# @files includes .dot files, but not . and ..
# and its elements are Path::Class objects
print "<$_>\n" for @files;