#!/usr/bin/perl -w

pipe(LESE_HANDLE, SCHREIB_HANDLE);
my $Kind_pid = fork();

if ($Kind_pid) {
 close(LESE_HANDLE);
 my $old_handle = select(SCHREIB_HANDLE);
 $| = 1;
 print SCHREIB_HANDLE qx(mpstat 1 10);
 close(SCHREIB_HANDLE);
 wait;
 select($old_handle);
} else {
 close(SCHREIB_HANDLE);
 my $Speicher;
 while(defined($Speicher = <LESE_HANDLE>)) {
   print "Empfangen: $Speicher \n";
 }
 exit(0);
}