#!/usr/bin/perl

use strict;
use warnings;

use Compress::Zlib;

  my $x = inflateInit()
    or die "Cannot create inflation stream";

  my $input = "";
  binmode STDIN;
  binmode STDOUT;

  my ($output, $status);
  while (read(STDIN, $input, 4096)) {
    ($output, $status) = $x->inflate(\$input);
    print $output if $status == Z_OK or $status == Z_STREAM_END;
    last if $status != Z_OK;
  }