#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Response;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://www.perlmonks.com');

if ($res->is_success){
    print $res->decoded_content;
}
else {
    print "Error: " . $res->status_line . "\n";
}