#  define pTHXx                register PerlInterpreter *my_perl;
#  define aTHXx                my_perl;