PerlInterpreter* my_perl = pthread_getspecific(PL_thr_key);