####
use Crypt::RSA;
use Crypt::RSA::SS::PSS;

my ($message, $rsa, $pss, $signature, $verify);
my ($public, $private);


# The message to be encrypted
#
$message = "hello";


# Generate RSA key
#
$rsa = new Crypt::RSA;
($public, $private) = $rsa->keygen( Size => 1024,
                                    Filename => "key" );


# Generate PSS signature
#
$pss = new Crypt::RSA::SS::PSS;

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

$verify = $pss->verify ( Message => $message,
                         Key => $public,
                         Signature => $signature) || die $pss->errstr;


# $verify returns true, it worked.
####