#!/usr/bin/perl

use strict;
use warnings;
use Socket;


my $server_port = 8080;
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);

my $my_addr = sockaddr_in($server_port, INADDR_ANY);

bind(SERVER, $my_addr) or die "Keine Bindung zu Port $server_port möglich: $!\n";

listen(SERVER, SOMAXCONN) or die "Konnte Port $server_port nicht abfragen: $!\n";

while (accept(CLIENT, SERVER)) {
   print "bbb\n";
}
close(SERVER);