perl -e '@sorted = sort { -M $a <=> -M $b } </path/*>; unlink foreach @sorted[10..$#sorted]'