#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open3 1.12;
use IO::Handle 1.24;

my $prog = join(' ',qw(perl doit.pl));

print "Rufe Programm '$prog' auf \n";
my ($in,$out,$err,$pid,$ausgabe,$puffer);
eval {
    $pid = open3($in,$out,$err,$prog);
    $out->blocking(0);
};
die "Gescheitert: '$@'" if $@;
if (defined $pid) {
    print "PID '$pid', lese...\n";
    #$ausgabe .= $puffer while (sysread $out,$puffer,4096);
    sysread $out,$ausgabe,4096;
    print "Fertig mit lesen\n";
    if (defined $ausgabe) {
        print "\n\nErhalte:\n".('=' x 30)."\n$ausgabe";
        my $code = <STDIN>;
        chomp($code);
        print $in $code."\n";
        sysread $out,$ausgabe,4096;
        print "\n\nErhalte:\n".('=' x 30)."\n$ausgabe";
    }
}
else {
    die "Keine PID";
}