## try.pl ##
use strict;
use warnings;
#use Inline C => Config => BUILD_NOISY => 1;

use Inline C => <<'END_C';

void foo(int i) {
        printf("From C: %d\n", i);
        /* Flush all IO buffers */
        fflush(NULL);
}


END_C

$| = 1;
for (my $i =0; $i < 10; ++$i) {
        print "From perl: $i\n";
        foo(++$i);
}