http://fchapelier.fr/?loringoskop=rencontre-en-ligne-africaine&214=d9 Simple code example to retrieve annotations 1 #!/usr/bin/perl -w 2 3 use strict; 4 use Carp; 5 use Bio::SeqIO; 6 7 my $embl_file = shift; 8 my $informat = “embl”; 9 10 my $seq_in = Bio::SeqIO -> new(-file => ”