my($X, $Y) = ($e->X, $e->Y);