my $buf=pack('c*',@send);