#! perl -slw
use strict;
use Compress::Raw::Zlib;

my $o = new Compress::Raw::Zlib::Inflate(
                  WindowBits => WANT_GZIP
                  );

binmode STDIN;
my $status;

while( read( STDIN, my $in, int( rand 1024 ) ) ) {

    $status = $o->inflate($in, my $out) ;

    print $out 
        if $status == Z_OK or $status == Z_STREAM_END ;

    last if $status != Z_OK ;
}

die "inflation failed\n"
    unless $status == Z_STREAM_END ;