gistfile1.pl

    my %args = %{ $self->interp_args || {} };
    if ( my $enc = $self->encoding ) {
        my $old_func = delete $args{ postprocess_text };
        $args{ postprocess_text } = sub{
            $old_func->( $_ ); $_ = $enc->decode( $_ );
        };
    }

    return $self->interp_class->new(
        %args
        allow_globals => [ map{ $_->[0] } @{ $self->globals } ],
    );