pipe(READER,WRITER);

my $pid = fork();

if($pid == 0){
  # Hier bin ich im Child-Prozess
  close READER;
  my $ort = 'bei Freunden';
  print "Ich bin ",$ort,"\n";
  print WRITER $ort;
  exit(0);
}
else{
  # Hier bin ich im Parent-Prozess
  close WRITER;
  while(my $line = <READER>){
    print "Ach, Du bist also ",$line,"\n";
  }
  wait();
  # hier läuft ein Tk-Programm welches nichtmehr reagiert.

}