#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);

$UA   = LWP::UserAgent->new();
$req  = HTTP::Request->new( GET => "http://www.example.com/" );
$resp = $UA->request($req);

# check for error. Print page if it's OK
if ( ( $resp->code() >= 200 ) && ( $resp->code() < 400 ) ) {
    print $resp->decoded_content;
} else {
    print "Error: " . $resp->status_line . "\n";
}