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) {
my $written = syswrite($client, $buffer, $length, $offset);
die "System write error: $!\n" unless defined $written;
$length -= $written;
$offset += $written;
$i++;
}
warn "Iterations: $i\n";
####
Iterations: 6104
##
##
my $blksize = (stat($fh))[11] || 16384;