#!/usr/bin/perl
use strict;

package MyModule;
use base qw/Win32::API::Interface/;

__PACKAGE__->generate( "kernel32", "SetWindowsHookEx", "WH_MOUSE", \&test, "NULL", 0 );

1;

my $obj = MyModule->new();
$obj->SetWindowsHookEx();


sub test
 {
  print "Mouse Event\n";
 }

#!/usr/bin/perl

use strict;

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

package MyModule;
use base qw/Win32::API::Interface/;

__PACKAGE__->generate( "kernel32", "SetWindowsHookEx", "IKNN", "N");

1;

use constant WH_KEYBOARD => 2;

my $lpfn = Win32::API::Callback->new(
    sub { my ($code, $wParam, $lParam) = @_; },
    "IIN", "N",
);

my $obj = MyModule->new();
$obj->SetWindowsHookEx(WH_KEYBOARD, $lpfn, 0, 0);