#!/usr/bin/env perl -w

use strict;
use warnings;
$| = 1;	


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

use LWP::UserAgent;

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

my $ua = new LWP::UserAgent;
my $response = $ua->get("http://example.com");

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