use CGI 3.55;
BEGIN {
    *CGI::read_from_client = sub {
        my($self, $buff, $len, $offset) = @_;
        local $^W=0;                # prevent a warning
        die if $MOD_PERL;
        while ($len) {
            my $bytes_read = read(\*STDIN, $$buff, $len, $offset);
            die "read: $!\n" if !defined($bytes_read);
            last if !$bytes_read;
            $len    -= $bytes_read;
            $offset += $bytes_read;
        }
    };
}