Excellent tip. FWIW, I had to update to use it.

PS C:\Users\moo> perl -MWin32 -E 'say Win32::GetACP()'
Undefined subroutine &Win32::GetACP called at -e line 1.
PS C:\Users\moo> cpanm Win32
--> Working on Win32
Fetching http://www.cpan.org/authors/id/J/JD/JDB/Win32-0.52.tar.gz ...
+ O
Configuring Win32-0.52 ... OK
Building and testing Win32-0.52 ... OK
Successfully installed Win32-0.52 (upgraded from 0.44)
1 distribution installed
PS C:\Users\moo> perl -MWin32 -E 'say Win32::GetACP()'
1252
[download]