Select Code to Download

perl -le "@a = sort{ print qq($a $b); 0 }@ARGV" 1 2 3 4
1 2
...
1 3
3 2
2 4                                                      # one iterati
+on more with -1