Select Code to Download

use warnings;
use strict;
...
@params{qw/n e d p q/, 'd mod (p-1)', 'd mod (q-1)', '1/q mod p'}
    = map { $_->to_hex } $rsa->get_key_parameters;
dd \%params;