#!/usr/local/bin/perl -w
use IPC::Open2;
#$| = 1;

while ($line = <STDIN>) {
   #last if ($line =~ /quit/i);
   print "child_got_this:$line";
}
print "child done\n";

exit;