use strict;
use warnings;
use Crypt::RSA;

my $rsa = new Crypt::RSA ( ES => 'PKCS1v15' );
my $pkey  = new Crypt::RSA::Key::Private ( Filename => '/home/abc/.ssh/id_rsa' );

print $pkey;