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

##</code><code>##

use Socket 1.3;
no utf8;


socket(RAW,17, 3, 255) || die $!; #open raw socket
my $inetrface=1;  #1-lo 2-eth0 3-eth1

#sending raw data to socket this data must by ethernet packet but for this examle this is irelevant if packet is not valid proble is same with valid packet

#         ______d_a_t_a_______ 
send(RAW,"\255\127\255\255\255",0,pack("SniC12",17,0,$interface,0)) || die "Send :$!\n";	


##</code><code>##

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