## Warning: Incomplete and untested ##

my $buffer;
my $got_bytes = 0;

while ($got_bytes < $total_bytes) {
    my $bytes = sysread $s, $buffer, $total_bytes - $got_bytes, $got_bytes;
}