Select Code to Download

use constant WM_HOTKEY          => 0x0312;

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";
}

use strict;
use warnings;
...
Win32::GUI::Dialog();

UnregisterHotKey( $mw_handle, MY_HOTKEY_ID ) or die $^E;