#!/usr/bin/perl
$|++;

use strict;
use warnings;

use IO::Pipe;
use IO::Select;

my $pipe = IO::Pipe->new;

my $pid = fork();

unless($pid) {
    $pipe->writer;
    $pipe->autoflush(1);

      for (1..2) {
          $pipe->print("Text vom Kind\n");
          sleep(2);
      }

} else {
    $pipe->reader;
    $pipe->autoflush(1);

    my $select = IO::Select->new($pipe);

    while(1) {
        if(my @handles = $select->can_read(0)) {
            foreach (@handles) {
                my $line = $_->readline;
                print "Das Kind schreibt: $line\n";
            }
        }
        print "Papa arbeitet.\n";
        sleep(1);
    }
}