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

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->credentials('jigsaw.w3.org:80', 'test', 'guest', 'guest');
my $response = $ua->get('http://jigsaw.w3.org/HTTP/Digest/');
$response->is_success or die $response->status_line;
print $response->decoded_content;