print ($verify ? 'verified' : 'failed'), "\n";

##</code><code>##

13:17 >perl 592_SoPW.pl
verified
13:17 >perl 592_SoPW.pl
verified
13:17 >perl 592_SoPW.pl
verified
13:18 >perl 592_SoPW.pl
PARI:   ***   forbidden division t_INT % t_REAL. at C:/Perl/Strawberry/spp-spec-64int-5.16.0.1-beta3-32bit-portable/perl/vendor/lib/Crypt/RSA/Key/Private.pm line 127.

13:18 >

##</code><code>##

$signature = $pss->sign ( Message => $message,
                          Key => $private ) || die $pss->errstr;