[Perl] llaves GnuPG

[Julio Alberto Carrillo Martinez]

Hola


Al tratar de usar el modulo de Crypt::GPG de la siguiente forma, para 
generar el par de llaves no he podido lograrlo.


use Crypt::GPG;
my $gpg = new Crypt::GPG;
$gpg->gpgbin('/usr/bin/gpg');

$status = $gpg->keygen
('Root prueba', 'root@sinapsis', 'ELG-E', 1024, 0 , 
'frase de prueba' );
print while (<$status>);
close $status;


Ojala y alguien me pueda orientar

Saludos
Julio Alberto Carrillo Martinez.
Gobierno del Distrito Federal