#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;
use POSIX;

my $childpid = open3(\*IN, \*OUT, \*ERR, 'gpg --edit zentara');

#gpg grabs control of the tty here 

my $tty0 = ttyname(0); #STDIN 
my $tty1 = ttyname(1); #STDOUT 
print "$tty0  $tty1\n";
#  they are /dev/pts/5  on my machine 
#how do I print to STDIN of /dev/pts/5 ? 

print IN "trust\n";
 chomp(my $answer = <OUT>);
 print $answer;
 if ($answer =~ /Your decision/) {
 print IN "5\n";
 }else {
    print "decision error $!\n";
    exit;
}