$stringKey = encode_base64(readKey($keyFIle));
 $rsa_priv = Crypt::OpenSSL::RSA->new_private_key($stringKey);


sub readKey{
$llave = shift;
open (FILE, $llave);
binmode(FILE);
while (read(FILE, $buff, 1024)) { #4)) {
    $key.= $buff;
}
close FILE;

return $key;
}