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