Select Code to Download

#!/usr/bin/perl

...
printf "sk: %s.\n",$sk->serialize();
# ---------------------------------------------------
1; # $Source: /my/perl/code/rsa_ssh_test.pl $;

perl rsa_ssh_test.pl 
Number found where operator expected at (eval 6501) line 1, near "FORM
+AT 1.1"
    (Do you need to predeclare FORMAT?)
Can't use an undefined value as a HASH reference at /usr/local/share/p
+erl/5.22.1/Crypt/RSA/Key/Private.pm line 217.