#!/usr/bin/perl
use Bio::Perl;
my $seqobj = get_sequence('swiss', 'ROA1_HUMAN');
write_sequence(">prot.fasta", 'fasta', $seqobj);
write_sequence(">seqs.fasta", 'fasta', $seqobj);

$seqobj = get_sequence('genbank', 'AI129902');
write_sequence(">nuc.fasta", 'fasta', $seqobj);
write_sequence(">>seqs.fasta", 'fasta', $seqobj);

$seqobj = get_sequence('refseq', 'NM_111111');
write_sequence(">>seqs.fasta", 'fasta', $seqobj);