Select Code to Download

#!perl
use strict;
...
                 sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] || 
+$a->[2] <=> $b->[2] }
                 map { [ split "[-: ]" ] } ($mdate,$mts))[0];
print $recent;