my Dir1 = "d:/xxxxxx";
my Dir2 = "d:/xxxxxx";
my @files = glob ("$Dir1/*" \& "$Dir2/*");
for my $file (@file)
{print $file, "\n"}