register_perl_scripting
register_perl_scripting(&perl_scripting_unsupported_ops);
register_perl_scripting(&perl_scripting_ops);