#!/usr/bin/perl -w

	use strict;
	use Bio::SeqIO;

	my $in  = Bio::SeqIO->newFh (	-file => '< swiss.dat',
					-format => 'swiss');

	my $out = Bio::SeqIO->newFh (	-file => '> sp_seqs.fasta',
					-format => 'fasta');

	foreach ( <$in> ) {
		print $out $_;
	}

exit 0;