use IO::Socket;
use IO::Handle;
pipe(READER, WRITER);   
WRITER->autoflush(1);
$| = 1;

for ($i=0;$i<10;$i++)
{
    if (!defined($kidpid = fork())) 
    {
        # fork returned undef, so failed
        die "cannot fork: $!";

    } elsif ($kidpid == 0) {

        close READER;
        
        for (my $p=0;$p<10;$p++)
        {
            sleep(1);
            print WRITER "$$: I am sending mum this message \n";
        }
        close WRITER;

        exit;
    } 
}