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;

##</code><code>##

Number found where operator expected at (eval 21) line 6, near "ZapzlA9gZ8
23"
    (Missing semicolon on previous line?)
Bareword found where operator expected at (eval 21) line 6, near "23mqj2RsKOF0Lal7YbjYFkDE7YrLPktf0FNNYvn6BjKZDlyQfpWnk8dP3crjoown"
    (Missing operator before mqj2RsKOF0Lal7YbjYFkDE7YrLPktf0FNNYvn6BjKZDlyQfpWnk8dP3crjoown?)
Number found where operator expected at (eval 21) line 9, near "QUgHQAJ4R
34"
    (Missing semicolon on previous line?)
Bareword found where operator expected at (eval 21) line 9, near "34Csy0lcx"
    (Missing operator before Csy0lcx?)
Having no space between pattern and following word is deprecated at (eval 21) line 10.