callback2.pl

$| = 1;

use blib;
use Win32::API;
use Win32::API::Callback;

my $sub = sub {
    my ($locale) = @_;
    printf "EnumSystemLocales callback got: '%s'\n", $locale;
    return 1;
};

my $Callback = Win32::API::Callback->new($sub, "P", "N");

Win32::API->Import("kernel32", "EnumSystemLocales", "KN", "N");

print "Calling EnumSystemLocales...\n";
$rc = EnumSystemLocales($Callback, 1);
print "EnumSystemLocales returned $rc\n";