use Compress::Zlib ;

    binmode STDIN;
    binmode STDOUT;
    my $x = deflateInit()
       or die "Cannot create a deflation stream\n" ;
my $data="This is a test string";
    my ($output, $status) ;
    
        ($output, $status) = $x->deflate($data) ;
    ($output, $status) = $x->flush() ;
        $status == Z_OK
            or die "deflation failed\n" ;
    
#        print $output ;
    
    
    ($rest, $status) = $x->flush() ;
    
    $status == Z_OK
        or die "deflation failed\n" ;
    $output.=$rest;
    print $output ;


	 $i = inflateInit()
       or die "Cannot create a inflation stream\n" ;
    
    $status=Z_OK;
	print "\nInf stream created\n";
	$result='a';
    while($status == Z_OK)
    {
	$temp=$output;
	print "temp: $temp\n";
	$status = $i->inflateSync($output);
	print "\noutput: $output\n";

        ($output1, $status) = $i->inflate($temp) ;
    
        $result.=$output1 
            if $status == Z_OK or $status == Z_STREAM_END ;
    print "\n-$status";
    }
    
    die ("inflation failed: " . $result . "\n" . $status)
        unless $status == Z_STREAM_END ;