use Win32::GuiTest qw(GetCursorPos);
($x,$y) = GetCursorPos();