#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use utf8;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://www.cpan.org/');               
print $response->content;