($count_in, $result) = $ob->read(12); warn "read unsuccessful 1\n" unless ($count_in == 12); $header_binary = $result; my($start, $byte_length, $from, $to) = unpack("vvVV", $result);