#!/usr/bin/perl
use warnings;
use strict;

my ( $ppid, $in, $out) = $$;
pipe ( $in, $out) or die $!;

# "Daemon"
{
    local *STDIN = $in;
    local $| = 1;
    my $child;
    defined( $child = fork) or die $!;
    last if $child;
    close $out or die $!;
    print while <STDIN>;
    exit 0;
}

# Spawn some client processess
{
    local *STDOUT = $out;
    local $| = 1;
    for my $kid (1..50) {
        my $child;
        defined( $child = fork) or die $!;
        next if $child;
        close $in;
        select( undef, undef, undef, .001)
          while kill $ppid, 0;
        select( undef, undef, undef, rand(1000)/1000),
          print 'Child ', $kid,
                ' pid=', $$,
                ' message=', 0 | rand 10000,
                $/
          for 1..20;
        exit 0;
    }
}