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

# Alocate socket and send packet

   $raddr = gethostbyname($ipaddr);
   $them = pack_sockaddr_in($port, $raddr);
   $proto = getprotobyname('udp');

   socket(S, $Domain, $Type, $proto) or die "socket : $!";
   setsockopt(S, $Level,$Optname, 1) or die "setsockopt : $!";

   print "Sending magic packet to $ipaddr:$port with $hwaddr\n";