> perl -Msort=defaults -e'print sort::current'
mergesort