Select Code to Download

## Warning: Incomplete and untested ##

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