...........................
    my $server = IO::Socket::INET->new(
               
     LocalPort => 2005,
               
     type => SOCK_STREAM,
               
     Reuse => 1,
               
     Listen => 10
               
     ) or die "Server läuft nicht: $@\n";
my $select = IO::Select->new($server);
while(my @readable = $select->can_read) 
    {
    
        last if (SERVICE_STOP_PENDING == DoEvents());
    foreach my $socket (@readable) 
        {
        if($socket == $server) 
            {
            my $client = $socket->accept;
..............................