Select Code to Download

$ perl -MO=Concise,-exec -e'my @a = 1..1000'
1  <0> enter 
...
8  <2> aassign[t4] vKS/COMMON
9  <@> leave[1 ref] vKP/REFC
-e syntax OK