在Perl脚本中使用SSH

Question

我正在尝试在我的Perl脚本中进行SSH调用。我已经安装了模块，但似乎没有任何作用。下面是我的脚本。任何帮助将不胜感激。

谢谢

Arnab

#!/usr/bin/perl
use NET::SSH2;
my $host = 'server';
my $user = 'user';
my $pwd = 'pwd';
my $ssh2 = Net::SSH2::Perl->new("$host");
$ssh->login($user,$pwd);

$sthslam = $dbhslam->prepare("ps -eo pid,lstart,cmd | grep -e 'rcu_bh'");
$sthslam->execute;