PerlInterpreter *pi_orig = PERL_GET_CONTEXT;
PerlInterpreter *pi_clone = perl_clone(pi_orig, ...);
PERL_SET_CONTEXT(pi_orig);