#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
require LWP::UserAgent;
 
 my $ua = LWP::UserAgent->new;
 
 my $response = $ua->get('http://search.cpan.org/');
 print Dumper $response;
 if ($response->is_success) {
     print $response->decoded_content;
 }