Select Code to Download

my $Dir1 = "d:/xxxxxx";
my $Dir2 = "d:/yyyyyy";
...
for my $file (@file) {
    print $file, "\n"
}

my $Dir1 = "d:/xxxxxx";
my $Dir2 = "d:/yyyyyy";
my @files = glob ("$Dir1/*");
push @files, $_ for glob "$Dir2/*";
print $_, "\n" for @file;