sub startButton_Click {
        tie *STDOUT, 'Tk::Text', $widget;
        unless ($pid = fork) {
          &Automation::Automate($testCase_text, $testSpec_text,
$config_text); # my program
          untie *STDOUT;
          exit 0;
        }
}

waitpid($pid, 0);

##</code><code>##

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

##</code><code>##

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.