#!/usr/bin/perl -w

use strict;
use IO::Socket;

my $sock = IO::Socket::INET->new
(
    LocalAddr   => '127.0.0.1',
    LocalPort   => 2000,
    Proto       => 'tcp',
    Listen      => 1,
    Reuse       => 1
);
my $client = ();

unless ($sock)
{
    die "Can't start Server\n";
}
while ($client = $sock->accept()) {
    if (fork() == 0) {
        while (<$client>)
        {
            print $_;
        }
        $client->close() if defined $client;
        die "Client closed Connection.\n";
    } else {
        while(<STDIN>)        #wenn statt dieser schleife einfach text gesendet wird, tritt kein problem auf.
        {
            print $client $_;
        }
    }
}