open FFF, "<fu.txt"  or die "$!" ;
binmode FFF ;
$gz = gzopen("fu.txt.gz", "wb") or die "gzerror" ;
while ($buffer = <FFF>) { $gz->gzwrite($buffer) }
close FFF ;
$gz -> gzclose ;