Select Code to Download

for my $t (keys %address)
{
...
    print "$t : $address{$t} : $file, \n###\n";
    print "$t : $address{$t} : ", glob ("$address{$t}/Test*"), "\n---\
+n";
}

A : U:/TEMP/TEMP/A : U:/TEMP/TEMP/A/Test01.txt,
###
...
B : U:/TEMP/TEMP/B : U:/TEMP/TEMP/B/Test02.txt
---