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");

##</code><code>##

#!/usr/bin/env perl
use ExtUtils::testlib;
use Mytest;
use Capture::Tiny 'capture';

my $fh;
open $fh, '>', 'out.txt' or die "open, $!";
my ($out, $err) = capture {
	Mytest::hello($fh);
};
print "out=\n$out\nend out\n";

close $fh;

##</code><code>##

out=
Hello, world via PerlIO_printf

end out
Hello, world via printf!