Select Code to Download

use Path::Class qw/dir/;
my $dir = dir( 'basedir' ); # platform-neutral syntax

my @plain_files;
$dir->recurse(callback => sub {
...
    return if $file->is_dir;
    push @plain_files, $file;
});