Select Code to Download

use strict;
use warnings;
...
);

ok ($sig) or diag ($pgp->errstr);

$ perl openpgp_sample.t 
1..1
encrypt: datasize not multiple of blocksize (16 bytes) at /usr/local/s
+hare/perl5/Crypt/OpenPGP/CFB.pm line 57.
# Looks like your test exited with 2 before it could output anything.