#!/usr/bin/perl

use strict;
use warnings;
use HTTP::GHTTP;

my $url='http://www.test.de/';

my $ret = HTTP::GHTTP->new();
$ret->set_uri($url);
$ret->process_request();
my ($stat,$message)=$ret->get_status();
die "Download Fehlgeschlagen ($stat): $message\n" if($stat != 200);

my $body=$ret->get_body();
print $body;