#!/usr/bin/env perl -w

use strict;
use warnings;
$| = 1;	


my $url = 'http://example.com/';

use LWP::UserAgent;
use HTTP::Request::Common;

{
	no warnings 'once';
	@LWP::Protocol::http::EXTRA_SOCK_OPTS = ( SendTE => 0, KeepAlive => 1, PeerHTTPVersion => "1.1" );
}

my $ua = new LWP::UserAgent;

my $request = HTTP::Request::Common::GET($url);
$ua->prepare_request($request);

warn "[Headers Out v2]\n", $request->as_string, "\n\n";

my $response = $ua->send_request($request);

warn "[Headers Out v2]\n", $response->request()->as_string(), "\n\n";
warn "[Headers In]:\n", $response->headers()->as_string, "\n\n";