use LWP::UserAgent;

use warnings;
use strict;

my $ua = LWP::UserAgent->new();
my $res = $ua->get('http://www.perlmonks.org/');
if ($res->is_success()) {
     print $res->content();  
} else {
     print "Failed, " . $res->status_line() . "\n";;
}