Создайте открытый / закрытый ключи и подпишите их с помощью Crypt :: OpenSSL :: RSA в Perl

Question

Я использую для генерации ключей с OpenSSL через оболочку, таким образом:

my $ssk="a29bRwoA73xZGeBc";
openssl req -new -newkey rsa:2048 -nodes -keyout "/etc/ssl/$ssk.key" -out "/etc/ssl/$ssk.csr"
openssl x509 -req -days 365 -in "/etc/ssl/$ssk.csr" -signkey "/etc/ssl/$ssk.key" -out "/etc/ssl/$ssk.crt"

Теперь мне нужно выполнить это действие через PERL, но я понятия не имею, может ли приведенный ниже код хотя бы реализовать1-я строка:

my $ssk="a29bRwoA73xZGeBc";

# I didn't use Crypt::OpenSSL::Random, as I didn't found where it comes to action
use Crypt::OpenSSL::RSA;
my $rsa=Crypt::OpenSSL::RSA->generate_key(2048);
my $rsa_pub=Crypt::OpenSSL::RSA->new_public_key($rsa->get_public_key_x509_string());
my $rsa_prv=Crypt::OpenSSL::RSA->new_private_key($rsa->get_private_key_string());
my $cipher=$rsa->encrypt($rsa_pub);
my $plain=$rsa->encrypt($cipher);
my $sigt=$rsa_prv->sign($plain); # This seems to be part of the 2nd line in shell code, but maybe I am wrong.
unless($rsa->verify($plain,$sigt)) { die "Failed to create keys"; }

# Here is the issue:
&SaveFile("/etc/ssl/$ssk.key",$plain,0400); # Is it correct?
&SaveFile("/etc/ssl/$ssk.csr",$cipher,0400); # How about this?

# How do I proceed to implement the 2nd line in the shell code?

Обратите внимание, что часть Crypt :: OpenSSL :: Random и сохранение в ключевые файлы не документированы ...

Большое спасибо