#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
 
my $req = HTTP::Request->new(
   GET => 'http://labs.gwendragon.de/');
$req->header(
	'Accept' => 'text/html',
	'Accept-Encoding' => 'gzip, deflate',
	
);
 
# send request
my $res = $ua->request($req);
print $req->headers->as_string, "\n\n";
 
# check the outcome
print $res->headers->as_string, "\n";