Help for this page

Select Code to Download

Select or download this

   sub SOCKETread{
    my $s = $_[0];
...
    } while ($numBytes);
    return $buffer;
   }