#!/usr/bin/perl

use IO::Socket;
my $server_socket = new IO::Socket::INET (
    LocalPort => 13,
    Listen => $SOMAXCONN,
    Proto => 'tcp',
    Reuse => 1)|| die "$!\n";


print "Server laeuft, zum Beenden Strg+C eingeben oder Prozess killen\n";
while (my $client_socket = $server_socket->accept() ) {
   print $client_socket "hallo";
}