if (IO::Select->new($s_socket)->can_read(2))
	{
		$s_socket->recv($s_output, 1024);
		print $s_output;
		# print "yes";
		# while (my $rc = $s_socket->recv($s_output, 1024) ) {
			# print $s_output;
			# $buffer .= $s_output;
		# }
	}