my @files = glob("$dir/*.txt");