..except the example code is failing for me. Here's what I have so far. It's dying when I try to read $ciphertext back from the filehandle. Can you offer suggestions or example code? Thanks! -mark

sub encrypt_text {
        use GnuPG::Tie::Encrypt;
    
    tie *CIPHER, 'GnuPG::Tie::Encrypt', armor => 1, recipient => $PUBL
+IC_KEY_USER_ID || die;
    print CIPHER  shift || die;
        local $/ = undef;
    my $ciphertext = <CIPHER> || croak "died here: $!";
    close CIPHER;
    untie *CIPHER;
    
    return $ciphertext;
    
}
[download]