#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

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

my $http = LWP::UserAgent->new();
my $ret=$http->get($url);
die "Download Fehlgeschlagen (".$ret->code().")".$ret->message()."\n" if($ret->is_error());

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