#!C:\Perl\bin\perl.exe -w

use strict;
use Win32::OLD::NLS;

my $langid = Win32::OLE::NLS::GetUserDefaultLangID();
my $lcid   = Win32::OLE::NLS::MAKELCID($langid);
my $linfo  = Win32::OLE::NLS::GetLocaleInfo($lcid, Win32::OLE::NLS::LOCALE_IDEFAULTANSICODEPAGE());

print "locale: cp$linfo\n";