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