http://qs1969.pair.com?node_id=519861

drock has asked for the wisdom of the Perl Monks concerning the following question:

I am using gpg encryption to cat "file" to a pipe which has my passphrase in it to allow decryption to occur. I want to use Perl to do this below :
cat file |gpg --option newfile oldfile
Here is a snippet:
open (PASS, "+<$pass") or warn "was unable to open FH $!"; for (;<PASS>;) { $gpgpass = $_; }
thank you!