Remplacement d'un "ReadLine 0"

Bonjour,

J'ai un petit problème pour passer outre le clavier de l'utilisateur.
Je vais mieux m'expliquer.

Le but de mon script est de décrypté un fichier qui a été crypté en RSA avec une passphrase.


Voici la partie du code de ma fonction qui a comme paramètre le contenu du fichier :

Citation:

---

use strict;
use warnings;

use Term::ReadKey;
use Crypt::RSA;
use Crypt::RSA::Key::Private;

print "Enter pass phrase: ";
ReadMode 'noecho';
my $passphrase = ReadLine 0;
ReadMode 'restore';
print "\n";

my $private =
Crypt::RSA::Key::Private->new(
Filename => 'key.private',
Password => $passphrase,
);

my $cypher = $_[0];

my $rsa = Crypt::RSA->new();

my $message =
$rsa->decrypt(
Cyphertext => $cypher,
Key => $private,
Armour => 1,
)
or die "Unable to decrypt cypher! - ".$rsa->errstr();

print "The message reads:\n$message\n";

---

Je souhaiterais outrepasser cette partie du code :

Citation:

---

print "Enter pass phrase: ";
ReadMode 'noecho';
my $passphrase = ReadLine 0;
ReadMode 'restore';
print "\n";

---

En faisant comme ceci :

Citation:

---

my $private =
Crypt::RSA::Key::Private->new(
Filename => 'key.private',
Password => 'ma jolie passphrase',
);

---

Quelqu'un aurait-il une idée car j'ai déjà passé pas mal de temps là dessus et je suis un peu bloqué ?

Merci par avance pour votre aide !