Select Code to Download

use IPC::Open3 ();   # don't import open3

sub my_open3 {  # cmd write read error
...

    return 1;  # ok
}

    my $gpg = "gpg ...options...";
    my ($id, $pass, @data) = ('fglock','xxx',"data\n","data\n");
...
        write =>    \@data,
        read =>     \@result,
        error =>    \@err );