Select Code to Download

Argument "SOCK_DGRAM" isn't numeric in socket at RC_Bad_wakeonlan.pl l
+ine 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.

my $Domain        = "AF_INET" ;
my $Type          = "SOCK_DGRAM" ;
...
   setsockopt(S, $Level,$Optname, 1) or die "setsockopt : $!";

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

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