use 5.010;
use Time::HiRes qw(time);

my $data = 'x' x 500 * 1024**2;

my $t    = time;
for my $n ( 1 .. 100 ) {
    unless (fork) {
        substr( $data, 4096 * $_ + $n, 1 ) |= 1 for 0 .. 124;
        exit;
    }
}
waitall;

say time - $t;