#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use IPC::Run qw(start pump finish timeout harness);

$ENV{IPCRUNDEBUG}="data"; # debug modus

my ($in,$out,$err);
$|=1;
my @prog = qw (gpg.exe -v -e); # verschlüsseln
my $handle = start \@prog, \$in, \$out, \$err, 10;
pump $handle until length $err;
if ($err =~ /gpg:/mg) {
    $in = "Kleiner Test\r\n";
}
pump $handle until length $err;
finish $handle or die "@prog beendet mit Fehlercode $?";
print "Ausgabe:\n$out";