$fu = "bla bla bla bla" ;
$ba = Compress::Zlib::memGzip( $fu ) ;
open FFF, ">ba.txt.gz" or die "$!"  ;
print FFF $ba;
close (FFF) ;