use strict;
use Win32::CtrlGUI;

my $win = Win32::CtrlGUI::wait_for_window("ParpadStatus");
my $x = 30;
my $y = 14;
my $xy = ($y << 16) + $x;
print "trying to send a click to the window ",
   sprintf("0x%lx",$win->handle),"\n";
$win->post_message('NN', "WM_LBUTTONDOWN", 0x0001, $xy);
$win->post_message('NN', "WM_LBUTTONUP", 0, $xy);