use strict ;
use warnings ;

use Inline (Config => DIRECTORY => "$ENV{HOME}/PLIB/INLINE") ;
use Inline 'C';

open my $fh, ">", "test.txt" ;
my $rc = my_puts($fh) ;
close $fh ;
print "\$rc = $rc\n" ;

__END__

__C__

int my_puts(PerlIO* fh) {
  return PerlIO_puts(fh, "Hello World !!\n") ;
} ;