#!perl -w

use strict;
use Test;
plan tests => 1;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

require HTTP::Request;
my $req = HTTP::Request->new(TRACE => "http://www.apache.org/");
$req->protocol("HTTP/1.0");
my $res = $ua->simple_request($req);
ok($res->content, qr/HTTP\/1.0/);

$res->dump(prefix => "# ");