ddg://tk mouse position -> http://rosettacode.org/wiki/Mouse_position

ddg://site:perlmonks.org tk mouse position -> Getting correct cursor position from scrolled Tk.pm canvas :) Mimicking UNIX Eyes

perl -MTk -le " tkinit->bind(q/<Motion>/, sub { print $Tk::event->X; }); MainLoop; "