[PERL] Executer commandes à distances / ssh

Bonjour,

Dans le cadre de l'administration de plusieurs serveurs, je cherche a créer un script qui effectue différentes commandes system sur une liste de serveur et qui renvoie les résultats dans un fichier local, le tout via ssh.

Jusqu'à présent, j'ai fait ceci :

#!/usr/bin/perl

use Net::SSH2;
use Net::SSH2::Channel;

my $ssh2 = Net::SSH2->new();
$ssh2->method('HOSTKEY', 'aes256-cbc');
$ssh2->connect('@IP') or die "Connexion impossible !\n";
$ssh2->auth_publickey ('root', 'c:/id_rsa.pub', 'c:/identity');

my $cmd = $ssh2->channel();
$cmd->shell('ps -ef');
while (<$cmd>){ print } 

Il me renvoie l'erreur "Can't call method "shell" on an undefined value at c:\test3.pl line 12."
L'erreur est la même si j'utilise la méthode exec.

Pouvez vous m'aidez ?

Merci