119304Speter# make sure every subprocess has it's exit and that the main one 219304Speter# hasn't 319304Spetersub fun { 419304Speter unless ($pid = fork) { 519304Speter unless (fork) { 619304Speter use Tk; 719304Speter $MW = MainWindow->new; 819304Speter $hello = $MW->Button( 919304Speter -text => 'Hello, world', 1019304Speter -command => sub {exit;}, 1119304Speter ); 1219304Speter $hello->pack; 1319304Speter MainLoop; 1419304Speter } 1519304Speter exit 0; 1619304Speter } 1719304Speter waitpid($pid, 0); 1819304Speter} 1919304Speter 2019304Speter1; 21