use strict;
use warnings;

use Win32::API;

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

my $langid = GetSystemDefaultLangID();

if (defined $langid) {
  print "Returned '$langid'\n";
  printf "Lang ID: 0x%04X\n", $langid;
}
else {
  print "Returned <undef>\n";
}

##</code><code>##

Returned <undef>

##</code><code>##

#include <stdio.h>
#include <windows.h>
#include <winnls.h>
void main(void) {
  printf("Lang ID = 0x%04X\n", GetSystemDefaultLangID());
}

##</code><code>##

use strict;
use warnings;

use Win32::API;

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

my $procid = GetCurrentProcessId();

if (defined $procid) {
  print "Returned '$procid'\n";
}
else {
  print "Returned <undef>\n";
}