chdir $area or die "chdir $area: $!"; @file_list = glob("@files");