#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

use HTTP::Message;
use LWP::UserAgent;

my $url        = 'http://labs.gwendragon.de/';
my $ua         = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;

my $response = $ua->get( $url, 'Accept-Encoding' => $can_accept, );
print $response->{_headers}->as_string;