$c->bind("<1>" => sub {
     my $e = $c->XEvent;
     my($x, $y) = ($c->canvasx($e->x),
                  $c->canvasy($e->y));
     ....
}