my @f = sort { -M $b <=> -M $a } readdir $d;