FFI::Raw and stdio's FILE

ffi_raw_file.pl

#!/usr/bin/perl

use strict;
use warnings;

use FFI::Raw;
use IO::Handle;

my $fopen = FFI::Raw -> new(
	'libc.so.6', 'fopen',
	FFI::Raw::ptr,
	FFI::Raw::str, FFI::Raw::str
);

my $fileno = FFI::Raw -> new(
	'libc.so.6', 'fileno',
	FFI::Raw::int,
	FFI::Raw::ptr
);

my $io   = IO::Handle -> new;
my $file = $fopen -> call('file.txt', 'w+');

# $file now is a FILE pointer

$io -> fdopen($fileno -> call($file), 'w');
$io -> print("Some text\n");