Select Code to Download

#include <stdio.h>
#include "EXTERN.h"
...
        int newval
    CODE:
        my_c_var = newval;

perl `perl -MConfig -le 'print $Config{privlibexp}'`/ExtUtils/xsubpp -
+prototypes -typemap `perl -MConfig -le 'print $Config{privlibexp}'`/E
+xtUtils/typemap Example.xs >
example.c

`perl -MConfig -e 'print $Config{cc}'` -o example example.c `perl -MEx
+tUtils::Embed -e ccopts -e ldopts`

Perl seems to be initialized.
 
...
get_my_c_var() = 1
get_my_c_var() = 42
my_c_var = 42