->
imagine a reply like that:

=name=system!done

sub read_len { my ($len,$c,$bytes); $sock->recv($c,1); $c=ord($c); $bytes=$c<0x80? 0 : $c<0xC0? 1 : $c<0xE0? 2 : $c<0xF0? 3 : 4; $len=$c & (0xFF >> $bytes); $bytes or return $len; while ($bytes--) { $sock->recv($c,1); $len=($len << 8) + ord($c); } return $len; }

I mean 2 Identical conditions

cheesegrits did you tested len>=0x200000? I think print $sock chr(($len >> 8) & 0xFF); print $sock chr(($len >> 8) & 0xFF); print $sock chr(($len >> 8) & 0xFF); ... will print one value. Maybe you mean print $sock chr(($len >> 24) & 0xFF); print $sock chr(($len >> 16) & 0xFF); pr...