{
    no strict 'refs';
    no warnings 'redefine';

    my $code = \&CGI::param;
    *{"CGI::param"} = sub {
        my $ret = &$code(@_);
        return Encode::decode_utf8($ret);
    };
}