Select Code to Download

$canvas{'ref'}->CanvasBind("<1>", [ \&print_xy, Ev('x'), Ev('y') ]); 

...
   my ($canv, $x, $y) = @_;
   print "(x,y) = ", $canv->canvasx($x), ", ", $canv->canvasy($y), "\n
+";   
}

         $canvas{'ref'}->CanvasBind("<1>" =>
                  sub{
...
                        my $y = $canvas{'ref'}->canvasy($screenY);
                        print "($x,$y)\n";
                     });