my $header; $remote->read($header, 8); ($op, $hvers, undef, undef, $count) = unpack "C4N", $header; my $data; $remote->read($data, $count);