$canv->CanvasBind('<3>' => sub {
    my ($x, $y) = ($Tk::event->x, $Tk::event->y);