What about piping your data to a command-line version of PGP? I.e., something like:

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