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