$s_socket = IO::Socket::INET->new(
	Proto=>"udp",
	LocalAddr=>"$s_ip",
	LocalPort=>"$s_port");