#!/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);

my @prog = ('gpg2');
my $handle = start \@prog, \$in, \$out, \$err, 10;
pump $handle until length $out;
if ($out =~ /gpg: Go ahead and type your message/mg) {
    $in = "Kleiner Test\r\n";
}
pump $handle until length $out;
finish $handle or die "@prog beendet mit Fehlercode $?";
print "Ausgabe:\n$out";

IPC::Run 0001 [#1(3772)]: ****** harnessing *****
IPC::Run 0001 [#1(3772)]: parsing [ 'gpg2' ]
IPC::Run 0001 [#1(3772)]: parsing SCALAR
IPC::Run 0001 [#1(3772)]: parsing SCALAR
IPC::Run 0001 [#1(3772)]: parsing SCALAR
IPC::Run 0001 [#1(3772)]: parsing '10'
IPC::Run 0001 [#1(3772)]: ** starting
IPC::Run 0001 [#1(3772)]: _spawn_pumper pid = 4472
IPC::Run 0001 [#1(3772)]: _spawn_pumper pid = 4660
IPC::Run 0001 [#1(3772)]: _spawn_pumper pid = 4360
IPC::Run 0001 [#1(3772)]: spawning 'C:\Program Files\GNU\GnuPG\pub\gpg2.EXE'
IPC::Run 0001 [#1(3772)]: cmd line: "C:\Program Files\GNU\GnuPG\pub\gpg2.EXE"
IPC::Run 0001 [#1(3772)]: spawn() = 2260
IPC::Run 0001 [#1(3772)]: ** pumping