use Compress::Raw::Zlib;

sub Zip {
        my ($d, $status) = new Compress::Raw::Zlib::Deflate( -Level => Z_BEST_COMPRESSION );
        my $result;
        my $status = $d->deflate(shift, $result);
        die "deflation failed\n" unless $status == Z_OK;

        $status = $d->flush($result) ;
        die "deflation failed\n" unless $status == Z_OK;

        $result;
}