#!/usr/bin/perl

$hostname = "localhost";

use IO::Socket;
$client_socket = new IO::Socket::INET (
    PeerAddr => $hostname,
    PeerPort => 13,
    Proto => 'tcp')|| die "Kein Socket... $!\n";

$content = <$client_socket>;
$client_socket->close();
print "Content-Type: text/html\n\n";
print $content."\n";