Select Code to Download

$ perl -MO=Concise -e 'sub foo(){42}; print foo'
6  <@> leave[1 ref] vKP/REFC ->(end)
...
-              <1> ex-rv2cv sK/8 ->-
5                 <#> gv[*foo] s ->6
-e syntax OK