{
  use Encode;
  no warnings 'redefine';
  my $param = \*CGI::param;
  sub CGI::param
  {
    return Encode::decode('UTF-8', $param->(@_), Encode::FB_CROAK);
  }
}