Help for this page

Select Code to Download

Select or download this

D:\tmp\pm>perl -MO=Concise,TST::foo -e"package TST; our $xxx=666; sub 
+foo { print $xxx}"
TST::foo:
...
-           <1> ex-rv2sv sK/1 ->4
3              <#> gvsv[*TST::xxx] s ->4
-e syntax OK