#!/usr/bin/perl -w

	use Bio::SeqIO;

	my $file = "swiss.dat";

	my $in_seq = Bio::SeqIO->new(	-file => "< $file",
					-format => "swiss");
	
	while (my $seq = $in_seq->next_seq) {
		print $seq->id, "\n";
		print $seq->seq, "\n";
		print $seq->accession_number, "\n";
	}

exit 0;