use strict;
use Socket;
use IO::Handle;

my $childPid;

socketpair(CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC);
CHILD->autoflush(1);
PARENT->autoflush(1);

die unless defined($childPid=fork());
if ($childPid){
  close PARENT;
  print "about toread\n";
  while (<CHILD>){
    print "got $_";
    last if (/InputPrompt/);
  }

  print CHILD "MyInput\n";
  waitpid($childPid)
  exit;
}

close CHILD;
open(STDOUT, ">&PARENT") or die "Can't dup stdout: $!\n";
open(STDIN, "<&PARENT") or die "Can't dup stdin: $!\n";
exec "myProgram" or die "Can't start my program: $!\n";