use Crypt::OpenSSL::RSA; [v 0.22] OR Crypt::RSA [v 1.57]
use XML::XSLT;
use XML::LibXML;

##</code><code>##

$keyFile = shift;

$rsa_priv = Crypt::OpenSSL::RSA->new_private_key($keyFile);


##</code><code>##

$keyFile = shift;
     $key = new Crypt::RSA::Key::Private (
                 Filename => $keyFile 
}

##</code><code>##

$ openssl pkcs8 -inform DER -in aaqm610917qja_1011180955s.key
Enter Password:
-----BEGIN RSA PRIVATE KEY-----
MIICWwIBAAKBgQCcphXGAbrbUnaumkSTsbGrFIfkaajOpvP1RFcVcbpWe7JBNXAw
ShKIH79QGLYEc9ATBmlxtjAma0B4ZRBTjmQ4vQrp9LwT3bCNX+9J9lUOHGsCysya
u3VxGNoCbhBxMYQP835LjAcy1d4AScOjGx8hxTZ6AUXtMmyEe+0NNQsJnQIDAQAB
AoGAF4PfFOBBmpbgdgl2be1ozFPCqokp7Aun55OgtvlhjYX4Fk3dT4JvEbwiTfXH
rRdtjs2Rmp5M0Bedj/Ur5D8l0BqBQznSrm6JGaDMv40wOk265qoECda/zZ2tdjvU
xmcYpuu2AE4mdvqVsMqDOVCSp/5aBUL+hv54OtADuVi/J0ECQQDIa1DW9ct2FsQT
h6sNdvgjI35fJ/MKA0y/kLD0wbwHT1VbUE3GevHHSeYOccKnWErlw4ppt9jglEvt
m/n1BlOlAkEAyBdN4sKUxbTy1NobPgQJ2UsmaCNU7JN9+wIgJ8gePkRktsHLE+ec
yBhBki3rYvexbXlmOU94yfrzzPZuyBkcmQJAfAr/o6vJW7NHdBb55YGGnqjvJBHj
uITGUaJKA5KMv7F4UOXo3Tlmv0ObocEDCvP4lzBpUHk7P/RI8i0hjWd3CQJAal0p
A//XwflclJWUobTX33C5a+ZMQK5u673Hhh41JXiJ6TS/VUdr6loqkSBj3mo5IS7F
jnWWihgi/bOKVEg1EQJACsF3shzuBETh5dyoqBJRP7EbzxB8SaeQapa9lJlkrOKD
HAwVS32OtPWCmU3isOjbqh+Mc3fNRe0Y9xq+nsingg==
-----END RSA PRIVATE KEY-----