if(IO::Select->new($s_socket)->can_read(10)) {  # 2 second timeout
		  $s_socket->recv($s_output, 1024);
		  $timeout = 0;
		  print $s_output;
		} else {
		  $timeout++;
		}