Select Code to Download

#!/usr/bin/perl
# gpg.pl
...
open(OUT, ">testfile");
print OUT $ciphertext, "\n";
close(OUT);

#!/usr/bin/perl
# gupg.pl
...
 
die "Decryption failed: ", $pgp->errstr unless $plaintext;
print $plaintext, "\n";

#!/usr/bin/perl
# gpg.pl
...
);
 
$sth->execute($ciphertext) || die $dbh->stderr;

#!/usr/bin/perl
# gupg.pl
...
 
die "Decryption failed: ", $pgp->errstr unless $plaintext;
print $plaintext, "\n";