#!/usr/bin/perl
use Data::Dumper;  
use LWP::UserAgent; 
 my $ua = LWP::UserAgent->new;
 my $response = $ua->get('http://search.cpan.org/');
 
 if ($response->is_success) {
     print $response->decoded_content;
 } 
 else {
     print $response->status_line;
 }
 
 print Dumper $response;