$ perl -MDevel::Peek -e " use bytes; Dump $f=chr(400) "
SV = PV(0x3e69f4) at 0x98a434
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x9841ac "\220"\0
  CUR = 1
  LEN = 4