#!/usr/local/bin/perl

use Compress::Zlib ;

my $x = deflateInit() or die "Cannot create a deflation stream\n" ;
($output, $status) = $x->deflate('text') ;

($output, $status) = $x->flush(Z_SYNC_FLUSH) ;

$output =~ s/(.)/sprintf '%04x', ord $1/seg;
print "output=$output\n";