Select Code to Download

$ perl -MO=Deparse -e 'my @a = 0 .. 10; sort @a;'
my(@a) = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
...
$ perl -MO=Deparse -e 'my @a = 0 .. 10; sort { $a cmp $b } @a;'
my(@a) = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
sort @a;