$fu = "bla bla bla bla" ;
$ba = compress ( $fu ) ;
open FFF, ">ba.txt.Z" or die "$!"  ;
print FFF $ba;
close (FFF) ;