#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent;

$PORT = 1234;

$server = IO::Socket::INET->new( Proto => 'tcp',LocalPort => $PORT,
				 Listen => SOMAXCONN,
				 Reuse => 1);

die "can't setup server" unless $server;

while ($client = $server->accept()) {
$client->autoflush(1);
print $client "Welcome to Server!\n\n";

$hostinfo = gethostbyaddr($client->peeraddr);

while (<$client>) {
                next unless /\S/;

                # ABFRAGEN HIER REIN (LOGIN etc.)

        }
}
close $client;