my $CallNextHookEx = Win32::API->Import( 'user32',
    'LRESULT WINAPI CallNextHookEx(HHOOK  hhk, int nCode, WPARAM wParam, LPARAM lParam)'
);