void to_FH(PerlIO * stream) {
     FILE * stdio_stream = PerlIO_exportFILE(stream, NULL);
     fprintf(stdio_stream, "hello");
     fflush(stdio_stream);
     PerlIO_releaseFILE(stream, stdio_stream);
}