Select Code to Download

$ perl -E 'use List::Util "max"; my @x = (5,3,1,6,2,4); say max @x'
6
...
a
b
c