#! /local/bin/perl -w

use strict;

use Bio::SeqIO;

my $in  = Bio::SeqIO->newFh ( -file   => '<seqs.html',
	 		      -format => 'swiss' );

my $out = Bio::SeqIO->newFh ( -file   => '>seqs.fasta',
			      -format => 'fasta' );
print $out $_ while <$in>;

exit; #bioperl1.pl
