Simple IPC with pipe

perl5-ipc-pipe.pl

use common::sense;

pipe my $read, my $write;

my @pids;

for (1 .. 5) {
    my $pid = fork // die "Failed: $!";

    if ($pid) { # Parent
        say "[Parent $$] Forked child: $pid";
        push @pids, $pid;
    }
    else { # Child
        close $read;
        my $sec = int(rand(4) + 1);
        sleep $sec;
        print $write "[Child $$] Hello!! I've waited $sec seconds.\n";
        exit;
    }
}

close $write;

my @in = <$read>;

waitpid($_, 0) for @pids;

say "[Parent $$] All children exited";

print $_ for @in;