I have a problem to access Swiss-prot database and I suspect that it is a
instaling or set up problem.
I use Windows XP sp2 have installed ActivePerl 5.8.7.815 and Bioperl 1.2.3. and
later I installed Bioperl-1.4
Well, I tried get sequence from swiss-prot but it all the time writes: 

“MSG: swissprot stream with no ID. Not Swissprot in my book”. 
Here is the code that does NOT work: 
-------------------------------------------------------------------------
#!/usr/bin/perl
use Bio::DB::SwissProt;
use Bio::Perl;
    $sp = new Bio::DB::SwissProt;

    $seq = $sp->get_Seq_by_id('KPY1_ECOLI'); # SwissProt ID

    $seq1 = $sp->get_Seq_by_acc('P43780'); # SwissProt AC      
   
write_sequence(">test4-1.fasta",'fasta',$seq) or print "nisam uspio upisati u
fajl test4-1.fasta\n";
print "gotovo 1\n";

write_sequence(">test4-2.fasta",'fasta',$seq1) or print "nisam uspio upisati u
fajl test4-2.fasta\n";
print "gotovo 2\n";
---------------------------------------------------------------------------

Here is the code that works:
---------------------------------------------------------------------------
#!/usr/bin/perl
use Bio::DB::GenBank;
use Bio::Perl;

 $db_obj = Bio::DB::GenBank->new;
 $seq_obj = $db_obj->get_Seq_by_acc("J01673");
 write_sequence(">test5.fasta",'fasta',$seq_obj) or print "Not posible to make a
fasta file\n";
print "Done.";   
-------------------------------------------------------------------------------

I have tried quite few ID and ACC whit different type of access to Swissprot but
it generated the same mistake even it had worked on the same PC a few months ago.
I tried to reinstall Perl, Bioperl and Cygwin but no change.
Please help

Thanks in advance:

Prof. D.M.