use bytes;
  while( read( $socket, my $buffer, $bufflen )){ 
    $res .= $buffer;
  }