PerlInterpreter * my_perl =
    (PerlInterpreter *)pthread_getspecific(PL_thr_key);