[Bioperl-l] error when doing example 1.2

[Lihn, Horng-Twu]

I have a newbie question. I am going through example 1.2

use Bio::DB::SwissProt;
my $database = new Bio::DB::SwissProt;
my $seq = $database->get_Seq_by_id('BACR_HALHA');
print "Seq: ", $seq->accession_number(), " -- ", $seq->desc(), "\n\n";

And get the following error. What does it mean?
Is it the problem of the remote server or the problem with
my company's firewall setting. How do I overcome this?

--Steve


-------------------- WARNING ---------------------
MSG: 500 (Internal Server Error) Can't connect to www.ebi.ac.uk:80 (Timeout)
Client-Date: Tue, 29 Jan 2002 19:15:55 GMT



---------------------------------------------------
-------------------- EXCEPTION --------------------
MSG: WebDBSeqI Request Error

STACK Bio::DB::WebDBSeqI::_request C:/Perl/site/lib/Bio/DB/WebDBSeqI.pm:446
STACK Bio::DB::WebDBSeqI::get_seq_stream
C:/Perl/site/lib/Bio/DB/WebDBSeqI.pm:298
STACK Bio::DB::WebDBSeqI::get_Stream_by_id
C:/Perl/site/lib/Bio/DB/WebDBSeqI.pm:196
STACK Bio::DB::WebDBSeqI::get_Seq_by_id
C:/Perl/site/lib/Bio/DB/WebDBSeqI.pm:139
STACK toplevel exam1.2.pl:5
-------------------------------------------


  Steve Lihn
  Merck & Co., Inc.
  Tel: (908) 423 - 4441