Attempt to free non-existent shared string '_TK_RESULT_' at C:/Perl/
site/lib/Tk.
pm line 247.
thread failed to start: _TK_EXIT_(0)
Free to wrong pool 233ee8 not 31df658 during global destruction.