FormMail(pgp5formmail.pl)でも､
$pgpprog = '/bin/pgpe';
〜
open (PGP, "|$pgpprog -r \"$Config{'pgpuserid'}\" -af -o /pgptmp.asc > /dev/null")
〜ﾒｰﾙ本文 出力〜
close(PGP);
という具合にﾍﾞﾀなﾒｰﾙ本文をﾊﾟｲﾌﾟで PGP ﾌﾟﾛｸﾞﾗﾑに渡して暗号化｡
その後､この PGP 暗号化ﾌｧｲﾙ(ASCﾌｧｲﾙ)を読み込んで､ﾒｰﾙにｾｯﾄしてるだけだなあ｡
open(PGPFILE, "/pgptmp.asc")
〜
while(<PGPFILE>) {
print MAIL $_;
}
close (PGPFILE);
で､不要になった ASC ﾌｧｲﾙは､
unlink("/pgptmp.asc");
すると｡
ﾓｼﾞｭｰﾙ使うよりはこっちのほうが簡単だねえ｡