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