#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet();

my $server='www.test.de';
my $site='/';

my $http=Net::Telnet->new(Timeout => 30);
$http-> open(Host => $server, Port => 80) or die "konnte Verbindung zu $server nicht herstellen";

my $get_text="GET $site HTTP/1.1\n"
             ."Accept: image/gif, image/jpeg, image/png, */*\n"
             ."Accept-Language: de\n"
             ."User-Agent: Test1.0 (Telnet)\n"
             ."Host: $server\n"
             ."Connection: close\n\n";# "Keep-Alive" if there is more
$http -> print($get_text);
(my $header)= $http -> waitfor('/\n\n/s');
(my $body) = $http -> waitfor('/\z/s');
$http-> close();

print $body;