Select Code to Download

>perl -MDevel::Peek -e"chomp($_=<STDIN>); Dump($_); open($fh, '<', $_)
+ or die; print <$fh>"
C:\Users\ikegami\í.txt
...
  CUR = 22
  LEN = 80
Died at -e line 1, <STDIN> line 1.

>perl -MDevel::Peek -MEncode -e"Dump(encode('cp1252', chr(0xED)))
SV = PV(0x2fa570) at 0x27b210
...
  PV = 0x32c24f8 "\241"\0
  CUR = 1
  LEN = 8

>perl -MDevel::Peek -MEncode=from_to -e"chomp($_=<STDIN>); from_to($_,
+ 'cp437', 'cp1252'); Dump($_); open($fh, '<', $_) or die; print <$fh>
+"
C:\Users\ikegami\í.txt
...
  CUR = 22
  LEN = 80
ok