$ctx->register_handler(Perl => [ \&_hdlr_perl, 1 ]);