Select Code to Download

use File::Glob 'bsd_glob';
my @files = ( bsd_glob("$Dir1/*"), bsd_glob("$Dir2/*") );

use Path::Class qw/dir/;
my @files = ( dir($Dir1)->children, dir($Dir2)->children );