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