This bug is fixed in CGI.pm version 3.05. In this part of CGI.pm:

1721c1643
<        if (exists $ENV{QUERY_STRING} && length($ENV{QUERY_STRING})>0
+) {
---
>        if (length($ENV{QUERY_STRING})>0) {
[download]