#! /local/bin/perl -w
# use strict;
use Bio::SeqIO;
my $in  = Bio::SeqIO->new ( -file   => '<seqs.html', -format => 'swiss' );
my $out = Bio::SeqIO->new ( -file   => '>seqs.fas', -format => 'fasta' );

while ($seq = $in->next_seq()) {
	$accNum = $seq->accession_number();
	print "Accession# = $accNum\n";
	$out->write_seq($seq);
}

exit; #bioperl2.pl
