#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Lite;

my $url='http://www.test.de/';
my $http = HTTP::Lite->new();
my $req = $http->request($url) or die "konnte die URL $url nicht erreichen ($!)\n";
die "Download Fehlgeschlagen ($req): ".$http->status_message()."\n" if $req ne "200";

my $body = $http->body();
print $body;