I forgot, if the byte order differs, len() also needs to update the length in the other order. E.g.:

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