Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"use List::Util qw(shuffle);
...
sorting...
ascending (default sort): 57
descending (reverse sort): 53