my $pid = open(PIP, "|-");# open to write
   if ( !$pid ) {   # I'm the child
      sendToClient( $SOCKET ); # give the Socket =ok
      exit;
   } else { # I'm parent talking to the kid
      print PIP "Are you there?\n";
      my $n = 0;
      while (1) { # just to test..
         print PIP "hmm, No. ",++$n,"\n"; # kid ??
         print "hmm, No. $n\n"; sleep 1;#control -> ok!
      }