#!/usr/bin/perl

use Compress::Zlib;

sub compress_string {
    my $buffer = shift;

    use Compress::Zlib;

    my $d = deflateInit( );

    $buffer  = $d->deflate( $buffer );
    $buffer .= $d->flush();

    return $buffer;
}