my $temp=socket(SOCK,PF_INET,SOCK_RAW,0) or die('Can not open socket');
printf "%d $@ $!\n",$temp;
my $temp=syswrite(SOCK,$packed);  #send the data
printf "%d $@ $!\n",$temp;
close SOCK;