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() or die "ERROR: LANGID Returned <undef>\n";

  print "Returned '$langid'\n";
  printf "Lang ID: 0x%04X\n", $langid;
#---- Run on Win XP (US English) Returns ---
#Returned '2011563017'
#Lang ID: 0x77E60409