unless(open(READ '-|')){
 while(1){
  print STDOUT "kind\n";
  sleep(1);
 }
}else{
 sleep(5);
 my @child=<READ>;
 print "@child";
 close(READ);
}
exit();