sub flush_info {
        # print out all information:
	   		next print "$info{gi}"."\t"."$info{version}"."\t"."$info{cds}\n" if ($info{gi} or $info{version} or $info{cds} eq undef;
		%info = ();
		};