#!/usr/bin/perl

use Compress::Zlib;

sub inflate {
  # Most of this was gratuitously stolen from the man page for Compress::Zlib
  my $x = inflateInit()
     or die "Cannot create an inflation stream\n";
  my $data = $_[0];
  
  my ($output, $status);
  ($output, $status) = $x->inflate(\$data) ;
  return $output;
}


undef $/;
my $data = <>;

my $inflated = inflate ($data);
print "$inflated";