use LWP::UserAgent;

use HTTP::Request::Common;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;

print"Content-type:text/html;charset=UTF-8\n\n" ;


$proxy = 'http://localhost:5865';

my $ua = new LWP::UserAgent(keep_alive => 0);
$ua->proxy(http => $proxy);
$ENV{HTTPS_PROXY} = $proxy;	
$ENV{'PERL_LWP_SSL_CA_PATH'} = "C:\\CA\\certs";	

$cookie_jar = new HTTP::Cookies();
$ua->cookie_jar($cookie_jar); 
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727)');


my $url ="http://search.cpan.org/";
my $response = $ua->get($url);
 die "Couldn't get $url", $response->status_line unless $response->is_success;
$page = $response -> content; 

print $page;