Select Code to Download

Attempt to free non-existent shared string '_TK_RESULT_', Perl 
interpreter: 0x2e 
...
0x22485c a 
t (eval 9) line 1. 
Free to wrong pool 222da8 not 2ed3ec8 at (eval 9) line 1.

use strict; 
use warnings; 
...
        $goBut->configure(-state=>"normal"); 
 
        return;