#!/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;

Cache-Control: max-age=7200
Connection: close
Date: Mon, 22 Oct 2012 10:32:37 GMT
Accept-Ranges: bytes
ETag: "1c8a880-a09-4bbc1209bb440"
Server: Apache
Vary: Accept-Encoding,User-Agent
Content-Encoding: gzip
Content-Length: 1038
Content-Type: text/html
Expires: Mon, 22 Oct 2012 12:32:37 GMT
Last-Modified: Wed, 21 Mar 2012 13:54:17 GMT
Client-Date: Mon, 22 Oct 2012 10:32:37 GMT
Client-Peer: 213.133.110.246:80
Client-Response-Num: 1
X-Frame-Options: SAMEORIGIN
X-LoadTime: D=726
X-Powered-By: Perl

Cache-Control: max-age=7200
Connection: close
Date: Mon, 22 Oct 2012 10:34:24 GMT
Accept-Ranges: bytes
ETag: "1c8a880-a09-4bbc1209bb440"
Server: Apache
Vary: Accept-Encoding,User-Agent
Content-Length: 2569
Content-Type: text/html
Expires: Mon, 22 Oct 2012 12:34:24 GMT
Last-Modified: Wed, 21 Mar 2012 13:54:17 GMT
Client-Date: Mon, 22 Oct 2012 10:34:11 GMT
Client-Peer: 213.133.110.246:80
Client-Response-Num: 1
Content-Script-Type: text/javascript
Content-Style-Type: text/css
Link: <css/standard.css>; media="all"; rel="stylesheet"; type="text/css"
Link: </favicon.ico>; rel="shortcut icon"; type="image/x-icon"
Title: Domina de Ignis ÔÇô GwenDragons programmatische Hexenk├╝che
X-Frame-Options: SAMEORIGIN
X-LoadTime: D=691
X-Meta-Copyright: (c)2011 by GwenDragon
X-Meta-Description: Testlabor von GwenDragon
X-Meta-Keywords: Programme, Testlabor, Projekte, Bugs, Browser-Bugs
X-Meta-Language: de
X-Meta-Publisher: GwenDragon
X-Meta-Robots: noindex,nofollow
X-Meta-Robots: noarchive
X-Meta-Robots: noodp
X-Powered-By: Perl

X:\tmp>curl -I -H "Accept-Encoding: gzip,deflate" http://labs.gwendragon.de/
HTTP/1.1 200 OK
Date: Mon, 22 Oct 2012 10:59:46 GMT
Server: Apache
X-Frame-Options: SAMEORIGIN
Last-Modified: Wed, 21 Mar 2012 13:54:17 GMT
ETag: "1c8a880-a09-4bbc1209bb440"
Accept-Ranges: bytes
Cache-Control: max-age=7200
Expires: Mon, 22 Oct 2012 12:59:46 GMT
Vary: Accept-Encoding,User-Agent
Content-Encoding: gzip
X-LoadTime: D=647
X-Powered-By: Perl
Content-Length: 1038
Content-Type: text/html