Select Code to Download

use warnings;
use strict;
...
    my ($gene) = $seq->annotation->get_Annotations('gene_name');
    print $gene->findval('Name'), "\n";
}

$ wget -q http://www.uniprot.org/uniprot/Q94650.txt
$ bp_seqconvert.pl --from swiss --to fasta <Q94650.txt
...
ISFTVWDVGGQDKIRPLWRHYYSNTDGLIFVVDSNDRERIDDAREELHRMINEEELKDAI
ILVFANKQDLPNAMSAAEVTEKLHLNTIRERNWFIQSTCATRGDGLYEGFDWLTTHLNNA
K