my $buf = pack( 'NA*', length( $msg ), $msg ); #sender
my ($len_msg,$msg) = unpack('NA*',$buf);#receiver

##</code><code>##

$status = "11010101";
$ps = pack('b16',$stauts);
print "$ps\n"; #junk char!!!!