[Bioperl-l] How to get protein ID and get protein accession from GI

[Ousmane Diallo]

hello,
Could somebody help me on how to get the protein ID and ACCESSION using the mRNA gi or accession.


my $db_obj = Bio::DB::GenBank->new();    
my $seq_obj = $db_obj->get_Seq_by_acc('123456') ;   # I pass here the mrna acc to get the seq_obj
my $gi = $seq_obj->primary_id ;                     # I get here the gi


I need to get the protein ID and protein ACCESSION"

THANKS!!