gistfile1.txt

my $cmd;
@ssh_keys = ("$ENV{HOME}/.ssh/zenoss",
             "$ENV{HOME}/.ssh/nss_restart",
             "$ENV{HOME}/.ssh/id_rsa",
             "$ENV{HOME}/.ssh/id_dsa",
             "$ENV{HOME}/.ssh/identity",);


my $ssh = Net::SSH::Perl->new($host, identity_files => @ssh_keys);
$ssh->login($user, $pass);

#### cd command doesn't work remotely, run command from /
#$cmd = "/usr/local/netscape/server4/$service/stop";
$cmd = "echo hi host: $host service: $service";
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print "$stdout";
exit;