#!/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";
 }