Select Code to Download

void
hello(fh)
...
        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");

#!/usr/bin/env perl
use ExtUtils::testlib;
use Mytest;
...
print "out=\n$out\nend out\n";

close $fh;

out=
Hello, world via PerlIO_printf

end out
Hello, world via printf!