perl -e 'print "$_\n" for ( sort { -M $a <=> -M $b } glob "/path/\*" );'