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

write_sequence (">roar.fa", 'fasta',$seq );