Help for this page
my $file = glob ("$address{$t}/Test*");
my ($file) = glob ("$address{$t}/Test*");
A : U:/TEMP/TEMP/A : U:/TEMP/TEMP/A/Test01.txt, ### ... ### B : U:/TEMP/TEMP/B : U:/TEMP/TEMP/B/Test02.txt ---