#!/usr/local/bin/perl -w
#
# For Perl
#
use FileHandle;
use IPC::Open2;

local(*Reader, *Writer);
$pid = open2(\*Reader, \*Writer, "morph/morphg -cf morph/verbstem.list");
Writer->autoflush();
#sleep 1;
$| = 1;
select(Writer);

#use POSIX ":sys_wait_h";

$input = "sheep+s_N\n";
print Writer $input;
print STDOUT "Printed\n";
$get = <Reader>;
print STDOUT "Got $get\n";

exit;


open(FD, "> tmp.txt") or die $!;
$input = "sheep+s_N\n";
print FD $input; close(FD);
`morph/morphg -cf morph/verbstem.list < tmp.txt > out.txt`;
open(FD, "<out.txt"); $got = <FD>;
print "Got $got\n";

exit;

#while(<>) {
#   $n++;
#   print Writer "$n $_";
#   $got = <Reader>;
#   print $got;
#}