#!\Perl\bin\perl -w

use strict;
use Win32::OLE::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 is: cp$linfo\n";