IPC::Run and subprocess interaction

Select or download this

#!/usr/bin/perl -w
use IPC::Run qw(start pump finish timeout);
...

    print "out:$TOK_OUT\n"; 
}

Select or download this

IPC::Run 0000 0123---7---- [#1(20574)]: debugging fd is 3
IPC::Run 0000 0123---7---- [#1(20574)]: ** starting
...
IPC::Run 0000 01234-67---- [#1(20574)]: read( 4 ) = 7 chars '1. line'
IPC::Run 0000 01234-67---- [#1(20574)]: exiting _select(): io occured 
+and break_on_io set
out:1. line

Select or download this

Input2pump:1. line
out:
Input2pump:2. line
out:

Select Code to Download