my $new_sock = $sock->accept();

my( $select, @ok_to_read, @ok_to_write, $buf, $handle1, $handle2 );

 $select = IO::Select->new();
 $select->add($new_sock);

while ($new_sock){

     my @read_from = $select->can_read(1);
     my @write_to = $select-> can_write(1);

      foreach $handle1 (@read_from) {
        $buf = <$new_sock>; #          <<<<<<-----------< 
        if($buf){ print $buf; }
     }
   
      foreach $handle2 (@write_to){
        print $new_sock "Hello from the SERVER new_sock\n";  
      }
}