#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use IPC::Cmd qw[can_run run run_forked QUOTE];
use Data::Dumper;

my %conf = (
	exe		=> 'gpg2.exe',
);

my $full_path = can_run($conf{exe});
if (defined $full_path) {
	print "verwende Pfad '$full_path'\n";
	my $cmd = $full_path
		.''
	;
	my @return = run(
		command	=> $cmd,
#		verbose	=> 0,
		buffer	=>\my $buffer,
		timeout	=> 20,
	);
	print Dumper(\@return);
	if (defined $buffer) {
		print "\n\nErgebnis:\n".Dumper(\$buffer);
	}
	else {
		print "Programmstart gescheitert\n";
	}
}
else {
	print "Nicht installiert oder nicht im path\n";
}