Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek -e'$x="abc"; %h=(x=>"abc"); sub f { Dump($_[0]) }
+ f($x); f($h{x});'
SV = PV(0x816a040) at 0x817bc40
...
  PV = 0x817d920 "abc"\0
  CUR = 3
  LEN = 4