#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

use IPC::Cmd qw[can_run run run_forked QUOTE];
my $p=can_run('gpg');
run( 
	command => $p . ' --list-keys test@gwendragon',
	buffer=>\my $buffer
);
say $buffer;