#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use IPC::Open3;
use IO::Select;

my %conf = (
	pfad	=> 'C:/Program Files/GNU/GnuPG/pub',
	exe		=> 'gpg2zum_test_falsch_geschrieben.exe',
);

my ($pid,$infh,$outfh,$errfh);
eval {
	$pid = open3($infh,$outfh,$errfh,"$conf{pfad}/$conf{exe}");
};
if ($@) {
	print "Fehler '$@' beim Programmstart\n";
}
else {
	print "PID '$pid'\n";
	my $sel = new IO::Select;
	$sel->add($outfh,$errfh);
	local *OUTPUT; 
	local *ERRLOG; 
	while(my @ready = $sel->can_read) {
		foreach my $fh (@ready) { 
			my $line = <$fh>;
			if(not defined $line){
				$sel->remove($fh);
				next;
			}
			if($fh == $outfh) {
				print OUTPUT $line;
			}
			elsif($fh == $errfh) {
				print ERRLOG $line;
			}
			else {
				die "Shouldn't be here\n";
			}
		}
	}
}