自分用メモ。
lwpcook (http://homepage3.nifty.com/hippo2000/perltips/lwpcook.html)
にあるサンプルプログラムにちょこっと追記したもの（ほぼ同じ）。

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0");

my $req = HTTP::Request->new(GET => 'http://example.com/');
$req->header('Accept' => 'text/html');

my $res = $ua->request($req);

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