Select Code to Download

    $canvas->Tk::bind("<Control-Motion>", [ \&set_coord, Ev('x'), Ev('
+y') ]);
    
...
    # ok after Button-1 (not holding it) until for example Button-3
    #$canvas->Tk::bind('<Button-1><Motion>', [ \&set_coord, Ev('x'), E
+v('y') ]);