die "perl $0 <fq1><OUT1>" unless(@ARGV==2);use Bio::SeqIO;use Bio::Seq;open my $FQ1 ,"zcat $ARGV[0] |" or die "$!";my$fq1=Bio::SeqIO->new(-fh=>$FQ1,-format=>'fastq');open my $GZ1 ,"| gzip > $ARGV[1]" or die $!;my$fqo1=Bio::SeqIO->new(-fh=>$GZ1,-format=>'fasta');m...