use strict;
use IO::Socket::INET;
use IO::Select;

my $server = IO::Socket::INET->new(LocalPort => 8000, type=>SOCK_STREAM, Reuse=>1, Listen=>10) or die $@;

my $select = IO::Select->new($server);

while (my @readable = $select->can_read()) {
   for my $socket (@readable) {
      if ($socket == $server) {
         my $client = $socket->accept();
         print "$client ist der neue Client\n";
         $select->add($client);
         next;
      } else {
         my $line = $socket->getline();
         #requests verarbeiten
      }
   }
}
#und so weiter