use strict;
use LWP::Simple;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->max_redirect(0);

my $response = $ua->get('http://www.msn.co.uk');

if ($response->is_success)
{
	while (my ($x,$y) = each (%$response))
	{
	print "$x - $y\n";
	}
}
else
{
die $response->status_line;
}