my $cgi =
    $ENV{REQUEST_METHOD} eq 'GET' 
    ? CGI->new(decode_utf8 $ENV{QUERY_STRING})
    : CGI->new;