Help for this page
c:\test>chcp && perl -E" say `chcp`; say `chcp 437`; say`chcp`" && chc +p Active code page: 850 ... Active code page: 437
InputCP [codepage] ... # you may want to use the non-instanciated form to avoid confuzion + :) $codepage = Win32::Console::InputCP(); Win32::Console::InputCP(437);