use warnings;

#use Inline C => Config =>
#    BUILD_NOISY => 1;

use Inline C => <<'EOC';

static int x = 5;

void set_x(int z) {
   x = z;
}

void get_x(char * id) {
   printf("%s %d\n", id, x);
}

EOC

get_x('1st call:');

if($pid = fork()) {
  waitpid($pid,0);
} else {
  set_x(10);
  get_x('2nd call:');
  exit(0);
}
 
get_x('3rd call:');