my ($newest) = sort {
     -M $b <=> -M $a
} glob("*");