>perl -MDevel::Peek -MEncode -e"Dump(encode('cp1252', chr(0xED)))
SV = PV(0x2fa570) at 0x27b210
  REFCNT = 1
  FLAGS = (TEMP,POK,pPOK)
  PV = 0x32c24f8 "\355"\0
  CUR = 1
  LEN = 8

>perl -MDevel::Peek -MEncode -e"Dump(encode('cp437', chr(0xED)))
SV = PV(0x30a570) at 0x28b210
  REFCNT = 1
  FLAGS = (TEMP,POK,pPOK)
  PV = 0x32c24f8 "\241"\0
  CUR = 1
  LEN = 8