long
wxSocketBase::Read( buf , size , leng = 0 )
    SV* buf
    long size
    long leng
  CODE:
    // Tell that the scalar is string only (not integer, double, utf8...)
    SvPOK_only(buf) ;
    // Get the original size:
    int org_size = SvCUR(buf) ;

    // Grow the scalar to receive the data and return a char* point:
    char* buffer = SvGROW( buf , size + 1 ) ;
    // Get the char* point of the end if you want to append data (len > 0):
    if ( leng > 0 ) { buffer = SvEND(buf) ;}
    else { org_size = 0 ;}

    THIS->Read( buffer , size ) ;
    // Get the amount of data read in the socket:
    int nread = THIS->LastCount() ;
    
    if ( nread > 0 ) {
      // null-terminate the buffer, not necessary, but does not hurt
      buffer[nread] = 0 ;
      // tell Perl how long the string is
      SvCUR_set( buf , org_size + nread ) ;
    }
    // Return the amount of data read, like Perl read().
    RETVAL = nread ;
  OUTPUT: RETVAL

##</code><code>##

my $var = 123 ;