#!/usr/bin/perl

use strict;
use warnings;

$|=1;
open PROC, 
    'perl -le"$|=1; print and select(undef,undef,undef,0.1) for 1 .. 1000" |'
	or die $!;
while( <PROC> ) {
	print $_;
}
close PROC;