void
hello(fh)
    INPUT:
        PerlIO* fh;
    CODE:
        printf("Hello, world via printf!\n");
        PerlIO_printf(PerlIO_stdout(), "Hello, world via PerlIO_printf\n");
        PerlIO_printf(fh, "Hello, world to provided file-handle\n");