#!/usr/bin/perl
#
#

my $count=0;
my $filenum=0;


my $filename = sprintf("uniprot%04d.nt.gz", $filenum);
open F, "| gzip --best -c > $filename";
while(<>) {
	$count++;
	print F $_;

	if( ($count%10000000)==0) {
		close F;
		$filenum++;
		my $filename = sprintf("uniprot%04d.nt.gz", $filenum);
		open F, "| gzip --best -c > $filename";
	}
}
close F;