use Bio::DB::GenBank;
use Bio::DB::Query::GenBank;

$query = "LEGK"; 
$query_obj = Bio::DB::Query::GenBank->new(-db => 'protein', 
                                          -query => $query );

$gb_obj = Bio::DB::GenBank->new;

$stream_obj = $gb_obj->get_Stream_by_query($query_obj);

while ($seq_obj = $stream_obj->next_seq) {
    # do something with the sequence object    
    print ">$query",' ', $seq_obj->display_id, ' ', $seq_obj->desc,"\n", $seq_obj->seq[,'\n';

hey. How can i print first occurrence of protein sequence?