#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0"); # pretend we are very capable browser

$req = HTTP::Request->new(GET => 'http://www.yahoo.com');
$req->header('Accept' => 'text/html');
# send request
$res = $ua->request($req);
# check the outcome
if ($res->is_success) {
 	print $res->content;
} else {
 	print "Error: " . $res->status_line . "\n";
}