PERL_SET_CONTEXT(some_perl);