Argument "SOCK_DGRAM" isn't numeric in socket at RC_Bad_wakeonlan.pl line 59, <I
NF> line 1.
Argument "AF_INET" isn't numeric in socket at RC_Bad_wakeonlan.pl line 59, <INF>
 line 1.
socket :  at RC_Bad_wakeonlan.pl line 59, <INF> line 1.

##</code><code>##

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";

##</code><code>##

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