find . -type f | perl -nle 'print -M, "\t$_"' | sort -n | \      
        tail +10 | cut -f 2 | xargs rm