my $gb=new Bio::DB::GenBank;