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.