500 Can't connect to search.cpan.org:80 (Bad protocol 'tcp') at web.pl line 24.

From: Nirvana (param_nirvana_at_hotmail.com)
Date: 11/27/04 

Date: Sat, 27 Nov 2004 18:37:25 +0000

#!C:/Perl/bin/perl.exe -w

use LWP::Simple;
use HTML::Parse;
use HTML::Element;
use HTML::Parser;
use HTML::FormatText;
use Socket;

$ENV{"SYSTEMROOT"} = "C:/WINDOWS/system32";
 
require LWP::UserAgent;

 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;

 my $response = $ua->get('http://search.cpan.org/');

 if ($response->is_success) {
     print $response->content; # or whatever
 }
 else {
     die $response->status_line;
 }

I'm getting following error:
500 Can't connect to search.cpan.org:80 (Bad protocol 'tcp') at web.pl
line 24.

Any help ?