Select Code to Download

   my $buffer = 'x' x 100000000;
   my $length = length($buffer);
...
   }   

   warn "Iterations: $i\n";

Iterations: 6104

my $blksize = (stat($fh))[11] || 16384;