use warnings;

use Inline C => <<'EOC';

void foo() {
  PerlIO_printf(PerlIO_stdout(),"HELLO");
}

EOC

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