Attempt to free non-existent shared string '_TK_RESULT_', Perl 
interpreter: 0x2e 
e14dc at C:\Documents and Settings\slickuser\Desktop\thread3.pl line 
22. 
Tk::Error: Can't call method "Call" on an undefined value at C:/Perl/ 
site/lib/Tk 
/After.pm line 89. 
 [once,[{},after#7,idle,once,[ConfigChanged,{},{}]]] 
 ("after" script) 
Tk::Error: Can't call method "Call" on an undefined value at C:/Perl/ 
site/lib/Tk 
/After.pm line 89. 
 [once,[{},after#8,idle,once,[ConfigChanged,{},{}]]] 
 ("after" script) 
Attempt to free non-existent shared string 'Value', Perl interpreter: 
0x22485c a 
t (eval 9) line 1. 
Free to wrong pool 222da8 not 2ed3ec8 at (eval 9) line 1.