$ perl -wMstrict -MDevel::Peek -e 'Dump("foo");' SV = PV(0x21783a0) at 0x20a31e0 REFCNT = 1 FLAGS = (POK,IsCOW,READONLY,PROTECT,pPOK) PV = 0x20b7f20 "foo"\0 CUR = 3 LEN = 10 COW_REFCNT = 0