Help for this page

Select Code to Download

Select or download this

$ perl -MO=Concise,-exec -e'print if $a'
1  <0> enter
...
7      <@> print vK
8  <@> leave[1 ref] vKP/REFC
-e syntax OK

Select or download this

$ perl -MO=Concise,-exec -e'if ($a) { print }'
1  <0> enter
...
7      <@> print vK
8  <@> leave[1 ref] vKP/REFC
-e syntax OK