update_thread called...
Free to wrong pool 223f40 not 1bcf528 at C:/Perl/site/lib/Tk.pm line 406.
Attempt to free unreferenced scalar: SV 0x1e7643c at C:/Perl/site/lib/Tk.pm line
 247.