my $answer = <$remote> || '---';

##</code><code>##

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

##</code><code>##

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