Select Code to Download

foreach my $id (@lines) {
    my $seq = $gb->get_Seq_by_id($id);
    write_sequence( ">>roar.fa", 'fasta', $seq );
}