my $pid = fork;
if (!defined($pid)) {
    # display an error window
    return;
}
elsif () {
    # ...
    # generate temp.tcl

    exec("wish temp.tcl");
}
else {
    return;
}