$send_socket = IO::Socket::INET->new(PeerAddr => $server,
                                         PeerPort => $port,
                                         Proto  => "udp",
                                         Type  => SOCK_DGRAM
                                        )
                or $socket_errmsg =
                        "Couldn't create socket to $server port $port: $@\n";