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

##</code><code>##

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

##</code><code>##

my $Domain        = AF_INET;
my $Type          = SOCK_DGRAM;
my $Level         = SOL_SOCKET;
my $Optname       = SO_BROADCAST;