BEGIN{
  no strict 'refs';
  my $real_new = \&CGI::new;
  *{"CGI::new"} = sub {
      my $cgi = &$real_new(@_);
      $cgi->charset('utf-8');
      return $cgi;
  };
}