perlのオープンgzでGZ圧縮ファイル圧縮ファイル出力

zipファイルを開きます。

open(FILE,"gunzip -c $file|") or die "can't open!";

出力ファイル圧縮

open(my $result,"|gzip >file_name.fq.gz");