Select Code to Download

$newest =  (sort { -M $a <=> -M $b } <*.log>)[0];

$newest= (sort { ($m{$a} ||= -M $a) <=> ($m{$b} ||= -M $b) } <*.log>)[
+0];