$s_socket = IO::Socket::INET->new(
     Proto=>"udp",
     LocalAddr=>"$s_ip",
     LocalPort=>"$s_port"
) or die ("\nCan't setup UDP socket on $ip$s_port: $!\n");
print "opened OK\n";