use strict;
use warnings;

$| = 1;
my $cmd = qq{$^X -le "print 'pid=', \$\$"};

for my $i ( 1 .. 1000 ) {
    print "$i: run $cmd ---------\n";
    my $rc = system( 1, $cmd );
    waitpid( $rc, 0 );
}