my $buffer = 'x' x 100000000;
    my $length = length($buffer);
    my $offset = 0;
    my $i      = 0;

   my $client = $ipc->accept();
   warn "connect from: ", $client->peerhost, "\n";
   warn "print $length bytes to client\n";

   while ($length) {
      # syswrite() schreibt immer nur 16k bei IO::Socket::SSL
      my $written = syswrite($client, $buffer, $length, $offset);
      die "System write error: $!\n" unless defined $written;
      $length -= $written;
      $offset += $written;
      $i++;
   }   

   warn "Iterations: $i\n";