my ($x, $y) = $mw->pointerxy;