my $prim = new Crypt::RSA::Primitives;
my $ctxt1 = $prim->core_encrypt (Key => $public, Plaintext => $pan); 
my $ctxt2 = $prim->core_encrypt (Key => $public, Plaintext => $pan); 
$ctxt1 eq $ctxt2 ? print q{deterministic} : print q{not deterministic};