for $i (1..100) { $r=C($i); print $r."\n" } use Inline C => <<'C_CODE'; int C (int i) { Inline_Stack_Vars; return i; Inline_Stack_Void; } C_CODE #### ... 94 95 96 97 98 99 100 Segmentation fault #### SV* C (SV* param) { Inline_Stack_Vars; int i = atoi(SvPV(Inline_Stack_Item(0), PL_na)); return newSVpvf("%i",i); Inline_Stack_Void; } #### 1 0 0 Segmentation fault