Select Code to Download

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

    foreach my $feat (@f) {
...
       }
      }
  }