use Compress::Zlib;
   my $str_to_compress='a big string';
   $compressed_str=compress($str_to_compress,1);
   $decompressed_str=uncompress($compressed_str);
   print $decompressed_str;