====== SSH Verbindungen und Commands ======

Variante 1:
<code perl>
open(my $ssh, "| ssh nagios\@$opt_HOST");
print $ssh "$QCMD\n";
print $ssh "ls -l\n";
print $ssh "exit\n";
close($ssh) or die "$!";
</code>

Variante 2 - mit Perl-Modul:
<code perl>
my $host = "hostname";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login();
my($out, $err, $exit) = $ssh->cmd("./directory/shellscript.sh");
</code>

====== Links zum Thema ======
  * http://lanti.wordpress.com/2008/04/21/netsshperl-installieren/