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