in reply to Win32 Keyboard hook in perl

I don't know anything about Win32::API, but from a pure Perl point of view, I think you just need to replace "Call->$hook(" with "$hook->Call(".

In Section Seekers of Perl Wisdom