use strict;
use warnings;
use Win32::API;

Win32::API->Import('kernel32.dll', 'long GetSystemDefaultLangID()') or
  die "Can't import GetSystemDefaultLangID: $^E\n";

my $langid = GetSystemDefaultLangID() & 0xFFFF  # Mask out the garbage in high-order bytes
     or die "ERROR: LANGID Returned <undef>\n";

print "Returned '$langid'\n";
printf "Lang ID: 0x%04X\n", $langid;

# Print output----
#   Returned '1033'
#   Lang ID: 0x0409