Select Code to Download

lanx@nc10-ubuntu:/tmp$ perl -MO=Concise, -e 'do ($foo)->{bar};'
9  <@> leave[1 ref] vKP/REFC ->(end)
...
4                 <#> gvsv[*foo] s ->5
7        <$> const[PV "bar"] s/BARE ->8
-e syntax OK

$ perl -c -e  'print (caller)[5]'
syntax error at -e line 1, near ")["
-e had compilation errors.

$ perl -c -e  'do (L,I,S,T)[5]'
-e syntax OK