while(1)  {
  my ( @read_sockets ) = $SELECT->can_read(5);
  if ( @read_sockets )  {
    foreach my $fh ( @read_sockets ) {
      my $data = <$fh>;
      print "Got data from server, $data";
      $data =~ s/\n$//;
    }
  }
}