sub len {
    my $len = unpack 'V', substr( $data, $pos, 4 );
    substr( $data, $pos, 4 ) = pack 'N', $len;
    $pos += 4;
    return $len;
}