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!
      }

##</code><code>##

sub sendToClient {
   my $SOC = ( shift );
   my $HDL = IO::Select->new( \*STDIN );
   while ( $HDL->exists( \*STDIN ) ){ # ok!
      mySleepToFullMinute(); # ok, not the problem
      my @lines = $HDL->can_read( 0 ); # allways empty???
      foreach my $l (@lines) {
         print $SOC $l; # nothing to send??
      }
   }
}