create_tk_window();#this was after the next line
threads->new(\&update_thread)->detach;

##</code><code>##

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.

##</code><code>##

Attempt to free non-existent shared string '_TK_RESULT_' at C:/Perl/site/lib/Tk.
pm line 247.
Attempt to free non-existent shared string '_TK_RESULT_' at C:/Perl/site/lib/Tk.
pm line 247.