Select Code to Download

$ perl -MO=Concise,-exec, -E '$a = []; $b = 5'
1  <0> enter v
...
9  <#> gvsv[*b] s
a  <2> sassign vKS/2
b  <@> leave[1 ref] vKP/REFC

my @args; $args[0] = anonlist();

$args[0] = 1;