#!/usr/bin/perl
use strict;
use warnings;
use Inline C => <<'END';
  void foo(int a)
  {
    printf("NUMBER: %d\n",a);
  }

  int add(int a,int b)
  {
    return a+b;
  }
END

foo(add($_,2)) for(0..9);