socket(S, "AF_INET", "SOCK_DGRAM", $proto) or die "socket : $!";
setsockopt(S, "SOL_SOCKET", "SO_BROADCAST", 1) or die "setsockopt : $!