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


##</code><code>##

InputCP [codepage] 

Gets or sets the input code page used by the console. Note that this doesn't apply to a console object, but to the standard input console. This attribute is used by the Write method. See also: OutputCP.

Example:
    $codepage = $CONSOLE->InputCP();
    $CONSOLE->InputCP(437);
    # you may want to use the non-instanciated form to avoid confuzion :)
    $codepage = Win32::Console::InputCP();
    Win32::Console::InputCP(437);