#!/usr/bin/perl -w

	use strict;

	use Bio::Index::Swissprot;
	use Bio::SeqIO;

	my $idx_file = "swiss.idx";

	my $out = Bio::SeqIO->new( '-format' => 'embl' );

	my $inx = Bio::Index::Swissprot->new('-filename' => $idx_file);

	foreach my $id ("104K_THEAN") {
		my $seq = $inx->fetch($id);
		$out->write_seq($seq);
	}

exit 0;