#!/usr/bin/perl -w

use Bio:: Perl; 
$ Test_Seq = Get_Sequence ('swissprot', "Roa1_Human"); 
Write_Sequence ("> Roa1_Human.fasta", 'FASTA', $ Test_Seq);