<perl> $seq_obj = get_sequence('genbank',"$gi"); $seq = write_sequence(">>up_1.fa",'fasta',$seq_obj);
</perl>