use Win32::OLE::NLS;
$LCID = GetSystemDefaultLCID(); # evaluates to '1033'
print GetLocaleInfo($LCID, 'LOCALE_SENGLANGUAGE');