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