Select Code to Download

#################
## trialencode ##
...
open (OUT, ">trialencoded");
print OUT $phrase;
close (OUT);

#################
## trialdecode ##
...

print "\n==========================\n\nEncoded:\n$phrase\n\nDecoded: [
+$message]\n";
print "\n\n\$gpg->error message: ".$gpg->error() if $gpg->error();