use strict;
use warnings;

use IPC::Open3 qw( open3 );

open(local *DEVNULL, '>', '/dev/null') or die;

for (my $size = 1024; ; $size += 1024) {
   print("$size\n");
   my $pid = open3(
      local our $to_chld,
      '>&DEVNULL',
      '>&DEVNULL',
      perl => (
         -e => 'print "x" x $ARGV[0]',
         $size
      )
   );
   waitpid($pid, 0);
}