## try.pl ##
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

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

##</code><code>##

From perl: 0
From C: 1
From perl: 2
From C: 3
From perl: 4
From C: 5
From perl: 6
From C: 7
From perl: 8
From C: 9

##</code><code>##

From C: 1
From C: 3
From C: 5
From C: 7
From C: 9
From perl: 0
From perl: 2
From perl: 4
From perl: 6
From perl: 8