my $seqio = $gb->get_Stream_by_id(['13474692']);
                                                                                                                                                                                    
  while( my $seq = $seqio->next_seq ) {
      print "seq is  ", $seq->display_id, "\n";
      my @f=$seq->get_all_SeqFeatures; #This gives you the annotation of the retrieved sequence object
 

##</code><code>##


    foreach my $feat (@f) {
       my $ann=$feat->annotation;
       next unless ($ann->get_Annotations('coded_by'));
       my @coded=$ann->get_Annotations('coded_by');
       foreach my $location (@coded) {
         print $location->value, " is the location that codes this protein\n";
       }
      }
  }