#! 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 <STDIN>;

kill 9, $pid