use Bio::DB::GenBank;
my $gb=new Bio::DB::GenBank;
my $seq= $gb->get_Seq_by_id ("asdadasda");

write_sequence (">roar.fa", 'fasta',$seq );
##</code><code>##

use Bio::DB::GenBank;

open my $handle, '<', 'sec.txt';
my @lines = <$handle>;
close $handle;
print @lines;


my $gb=new Bio::DB::GenBank;
my $seq= $gb->get_Seq_by_id ("@lines");

write_sequence (">roar.fa", 'fasta',$seq );
##</code><code>##

asdadasda
eeeeerrrr
vfffvvvfv
raerrrrrr