use warnings;

use Inline C => <<'EOC';

void foo() {
     printf("HELLO");
}

EOC

for(1..3) {
   foo();
   print "\n";
}

##</code><code>##

C:\_32\pscrpt\inline>perl try.pl
HELLO
HELLO
HELLO

C:\_32\pscrpt\inline>

##</code><code>##

[rob@localhost inline]$ perl try.pl



HELLOHELLOHELLO[rob@localhost inline]$