> perl -MWin32 -E "say Win32::GetACP()"
1252

> chcp
Aktive Codepage: 850