open(PROG,"| $gpg -ea -o cryptthis.txt.asc -r someguy cryptthis.txt") or die "$!";
print PROG "yes\n";
close(PROG);