my $data = 'mumble'; use Compress::Zlib; my $compressed = compress($data);