Select Code to Download

$ perl -MO=Concise,ret,empty,label -e'sub ret {return}; sub empty {()}
+; sub label {LABLE:};' 
main::ret:
...
9  <1> leavesub[1 ref] K/REFC,1 ->(end)
8     <;> nextstate(LABLE: main 6 -e:1) P ->9
-e syntax OK