Select Code to Download

sub startButton_Click {
        tie *STDOUT, 'Tk::Text', $widget;
...
}

waitpid($pid, 0);

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

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.