perl -wle 'print for sort 1 .. 100'