C:\test>gzip junk.htm

C:\test>type junk38.pl
#! perl -slw
use strict;
use Compress::Raw::Zlib;

my $o = new Compress::Raw::Zlib::Inflate(
######### I forgot this. With it, it works perfectly.########################
    WindowBits => WANT_GZIP_OR_ZLIB,  
);

binmode STDIN;

while( read( STDIN, my $in, int( rand 1024 ) ) ) {
    my $st = $o->inflate( $in, my $out );

    die "$st" unless $st == Z_OK;

    print $out;
}

C:\test>perl junk38.pl < junk.htm.gz
data error at junk38.pl line 12.