[Bioperl-l] Question about 503 Service Temporarily Unavailable

[Cacau Centurion]

Hi all,

I am a new user of Bioperl. My script is as follows.

use strict;
use warnings;
use Bio::DB::EntrezGene;

my $db = Bio::DB::EntrezGene->new;

my $seqio = $db->get_Stream_by_id([2, 4693, 3064]); # Gene ids
    while ( my $seq = $seqio->next_seq ) {
            print "id is ", $seq->display_id, "\n";
    }

exit;



However, when I ran the script, I as told "MSG: WebDBSeqI Request Error:
HTTP/1.1 503 Service Temporarily Unavailable
Connection: close
Date: Wed, 12 Jun 2013 10:20:16 GMT
Accept-Ranges: bytes
Server: Apache
Vary: accept-language,accept-charset
Content-Language: en
Content-Type: text/html; charset=iso-8859-1
Client-Date: Wed, 12 Jun 2013 10:20:46 GMT
Client-Peer: 165.112.7.20:80
Client-Response-Num: 1
Link: <mailto:info at ncbi.nlm.nih.gov>; rev="made"
Title: Service unavailable!
"

Could anyone please help me with the problem? Thanks a lot!!!

Yours faithfully,
Cacau