open(PGP, "|gpg -output file -encrypt -recipient ...");
while (<FH>) { print PGP }
close(PGP);