#!/usr/bin/perl -w
use strict;
use diagnostics;

use Win32::API;
my ($hook, $hooker, $idHOOK, $lpfn, $hmod, $dwThreadId);
$idHOOK = 'WH_KEYBOARD_LL';
$lpfn = " " x 80;
$hmod = 0; 
$dwThreadId = 0;

$hook = new Win32::API('user32', 'SetWindowsHookEx', 'LLLL', 'L');
if(not defined $hook) {
        die "Can't import API SetWindowsHookEx: $!\n"
        }
$hooker = $hook->Call($idHOOK, $lpfn, $hmod, $dwThreadId);
#print $hooker;