callback2.pl

WIN32::API for perl dev 5

$| = 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";