use X11::GUITest qw/GetMousePos/;
my ($x, $y, $scr_num) = GetMousePos();