Variante 1:
open(my $ssh, "| ssh nagios\@$opt_HOST"); print $ssh "$QCMD\n"; print $ssh "ls -l\n"; print $ssh "exit\n"; close($ssh) or die "$!";
Variante 2 - mit Perl-Modul:
my $host = "hostname"; my $ssh = Net::SSH::Perl->new($host); $ssh->login(); my($out, $err, $exit) = $ssh->cmd("./directory/shellscript.sh");