my ($data,$taillen) = unpack 'C/aC', $inbuf;
my @recs = (length($data), unpack('C7a6A*',$data), $taillen);