Select Code to Download

# ...
$canvas-> Tk::bind( '<B1-Motion>', [ \&set_coord, Ev('x'), Ev('y') ]);
...
    my ( $item ) = $canv-> find( withtag => "$r-$c", );
    $canv-> itemconfigure( $item, -text => $default_char );
}