$ua = LWP::UserAgent->new;
$res = $ua->request(HTTP::Request::Common::_simple_req('TRACE', 'http://localhost/'));
if ($res->is_success) {
  print "content is ", $res->content;
} else {
  print '$res is ', $res->message, "\n";
}