use strict;
use warnings;
use IO::Socket::SIPC;

my $sipc = IO::Socket::SIPC->new( favorite => 'IO::Socket::INET' );

$sipc->connect(
   LocalAddr       => 'localhost',
   LocalPort       => 50010,
   Proto           => 'tcp',
   Listen          => 10, 
   Reuse           => 1,
) or die $sipc->errstr($@);

warn "server initialized\n";

my @data = ( "handlung", "private", "nick", '<font face="Comic Sans MS " color="003300"> g</font>' );

while ( 1 ) { 
   while (my $client = $sipc->accept()) {
      print "connect from client: ", $client->sock->peerhost, "\n";
      $client->send(\@data) or die $client->errstr($!);
      $client->disconnect or die $client->errstr($!);
   }   
   warn "server runs on a timeout, re-listen on socket\n";
}

$sipc->disconnect or die $sipc->errstr($!);