# Must appear before "use CGI". BEGIN { require CGI; package CGI; no warnings 'redefine'; my $real_param = \&CGI::param; sub param { if (wantarray) { return map { Encode::decode_utf8($_) } $real_param->(@_); } else { return Encode::decode_utf8($real_param->(@_)); } } }