my $newest = shift @{[sort {-M $a > -M $b} (<img*.jpg>)]};