[Bioperl-l] Uniprot

[Sebastien Moretti]

Hello
Is there a BioPerl module to send a request to UniProt db ?
My script send a request to Swissprot :

	#!/usr/bin/perl

	use strict;
	use Bio::DB::SwissProt;
	use Bio::SeqIO;
	my $acc=$ARGV[0];

	my $gb = new Bio::DB::SwissProt;
	my $stream = $gb->get_Seq_by_acc($acc);

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

	my $result=$out->write_seq($stream);
	$result =~ s/^1.*$//;
	print $result;

	exit;

But how can I do the same with UniProt ?
Thanks

-- 
Sebastien MORETTI
CNRS - IGS
31 chemin Joseph Aiguier
13402 Marseille cedex 20, FRANCE
tel. 04 91 16 44 55 - 06 61 88 59 00