#!/usr/bin/perl
use strict;
use warnings;

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;

print "\nModultest: '";
eval 'use ExtUtils::Installed; $inst = ExtUtils::Installed->new(); @modules = $inst->modules(extra_libs=>\@{"cgi-bin/lib"}); /(HTTP::Message)/ && print "$1 found" for (@modules)';
print "'\n";