#!/usr/bin/perl
use warnings;
use strict;
my ( $pid, $pid2 );
$| = 1;
if ( ( $pid = fork() ) && ( $pid2 = fork() ) ) {
print( "I have to wait for my kids.\n" );
my $straggler = waitpid( $pid, 0 );
print( "Finally $straggler finished, now I can go.\n" );
}
elsif ( $pid && defined( $pid2 ) ) {
print( "Kid 2: Mine is not...\n" );
print( "Kid 2: Hey! Wait for me!!!\n" );
exit();
}
elsif ( defined( $pid ) ) {
print( "Kid 1: My parent is very patient...\n" );
}
else {
die( "Forking problems: " );
}