$ perl -wl \
? -e 'use charnames ":full";' \
? -e 'use Data::Peek qw(triplevar DDump);' \
? -e 'my $tv = triplevar ("\N{GREEK SMALL LETTER PI}", 3, 3.1415);' \
? -e 'DDump $tv'
SV = PVNV(0x1217860) at 0x76a528
  REFCNT = 1
  FLAGS = (PADMY,IOK,NOK,POK,pIOK,pNOK,pPOK,UTF8)
  IV = 3
  NV = 3.1415
  PV = 0x7773e0 "\317\200"\0 [UTF8 "\x{3c0}"]
  CUR = 2
  LEN = 8