my @f = glob_files("$d", 1);