#!/usr/bin/perl -w

	use strict;

	use Bio::Index::Swissprot;

	my $file = "swiss.dat";
	my $idx_file = "swiss.idx";

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

	$inx->make_index($file);

exit 0;