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