use strict;
use warnings;


use Bio::DB::GenBank;

use File::Slurp;

my @lines = read_file('sec.txt');
chomp @lines;
print "@lines\n";

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