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

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);
};
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";
}