my $transid = unpack('n', substr($payload,0,2));