C CODE:



int some_Cvar;  // Global to C

int main (void) {

  call_perl("some_perl_func");

  printf("C: some_Cvar = %d\n",some_Cvar);

}



int set_some_Cvar (int val) {

  some_Cvar = val;

}



-------------------------



PERL CODE:



sub some_perl_func {

  print "In perl - setting some_Cvar\n";

  set_some_Cvar(42);

}