PerlIO* conn_pio;
conn_pio = PerlIO_fdopen(conn,"r+");