perl -e 'print join("\n",sort {(stat($a))[9] cmp (stat($b))[9] or $a cmp $b } <*>)';