my ($hwnd, $message, $msg_wParam, $msg_lParam, $time, $pt)
    = unpack 'L L L l L L ', unpack( 'P24', pack('L', $lParam) );

if ( $message == WM_HOTKEY ) {
    print "**************************\n";
}