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