Tk::Error: bad screen distance "" at /pro/lib/perl5/site_perl/5.24.1/x86_64-linux-thread-multi-ld/Tk.pm line 251.
 Tk callback for .canvas
 <Button-1>
 (command bound to event)