##
print $toKid while ;
##
##
#! perl -sw
use strict;
use threads;
use IPC::Open2;
my( $toKid, $fromKid );
my $pid = open2( $fromKid, $toKid, 'not-top' );
async{
print while <$fromKid>;
}->detach;
print $toKid while ;
kill 9, $pid