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);