## 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); } #### 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 #### 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