c:\test>chcp && perl -E" say `chcp`; say `chcp 437`; say`chcp`" && chcp
Active code page: 850
Active code page: 850

Active code page: 437

Active code page: 437

Active code page: 437