#!/usr/bin/perl

use strict;
no strict 'refs';
use warnings;

use IO::Socket;
use IO::Select;
use Parallel::ForkManager;

our $die = 0;
$SIG{INT} = sub{ $die = 1; exit; };

our %clients = ();
our $select = IO::Select->new;
my $server = IO::Socket::INET->new(      LocalHost => 'localhost',
                                    LocalPort => 2222,
                                    Proto =>     'tcp',
                                    Listen =>     10000,
                                    Reuse =>      1,
                                   ) or die "Sock Error: $!\n";

our $pm = Parallel::ForkManager->new(10);
$pm->run_on_finish(sub{
                   my($pid,$exitcode,$ident,$exitsignal,$coredump,$get)=@_;
                   # Jetzt Sockets updaten :-)
                   my $sock = $get->{socket};
                   my $ip = $get->{ip};
                   my $id = $get->{ident};
                   $clients{$sock}->{socket} = $sock;
                   $clients{$sock}->{ip} = $ip;
                   $clients{$sock}->{ident} = $ident;
                   # Ende Update
});
$server->autoflush(1); # Autoflush für ältere Perl Versionen.
$select->add($server);


while(!$die){
foreach our $key( $select->can_read()) {  # foreach
          if($key eq $server) {  # if $bay eq $server
                 next if $key eq "";
                 our $bay = $server->accept or next;
                 my $ip = $bay->peerhost();
                 $select->add($bay);
                 $pm->start and next;
                 my @phrase = ("a" .."z","A".."Z",0..9);
                 my $ident = join '', map { $phrase[int rand @phrase] } 1..10; 
                 $clients{$bay}->{ip} = $ip;
                 $clients{$bay}->{ident} = $ident; 
                 
                 foreach my $client( keys %clients ){
                    print "Verbindung von $clients{$client}->{ip} mit der Ident $clients{$client}->{ident}... OK\n";
                 }
                 my $data = $pm->finish(0, { ip => $ip, ident => $ident, socket => \*{ $bay } });
           }
}
           $pm->wait_all_children;
}

The storable module was unable to store the child's data structure to the temp file "/tmp/jtXd3_MxiB/Parallel-ForkManager-8516-8518.txt":  Can't store GLOB items at /usr/lib/i386-linux-gnu/perl/5.24/Storable.pm line 265, at /usr/local/share/perl/5.24.1/Parallel/ForkManager.pm line 84.