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