use strict;
use warnings;
use IO::Socket::INET;

my $socket = IO::Socket::INET->new(
    LocalHost  => '127.0.0.1',
    LocalPort  => 43618,
    Type       => SOCK_STREAM,
    Listen     => 10,
    Reuse      => 1,
) or die "server: can't open socket over port 43618";

warn "server initialized\n";

while ( 1 ) {

    while (my $client = $socket->accept) {
        my $request = <$client>;
        chomp($request);
        next unless $request;
        warn "client pid: $request\n";

        # close() um zu testen wie der Client darauf reagiert
        close($client);
    }

}

close($socket);