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

my $pid = fork();

pipe(READER, WRITER);

unless($pid) {
   while(1..) {
       print READER "Text vom Kind";
       sleep(1);
   }
   CORE::exit;
}
for(<READER>) {
  print "Das Kind schreibt: $_\n";
}
close(READER);

# !!!was hier folgt wird nichtmehr ausgeführt !!!