Select Code to Download

perl -v
This is perl, v5.8.0 built for i386-linux-thread-multi

use Socket 1.3;
no utf8;
...
#         ______d_a_t_a_______ 
send(RAW,"\255\127\255\255\255",0,pack("SniC12",17,0,$interface,0)) ||
+ die "Send :$!\n";

sendto(3, "\302\255W\302\255\302\255\302\255", 9, 0, {sin_family=AF_PA
+CKET, proto=0000, if1, pkttype=0,addr(0)={0, }, 20) = 9