use strict;
    use Win32::OLE::NLS qw(:DEFAULT :LOCALE);

    my $lcid = GetSystemDefaultLCID();
    print GetLocaleInfo($lcid, LOCALE_SLANGUAGE);