Bin gerade selbst drauf gekommen:

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

PS ... ich hab es hier im Forum gefunden ... und zusätzlich noch eine ganze
Menge andere Tricks, die ich gut gebrauchen kann ;)

Gruss

Ralf