Select Code to Download

# $ssh_sr contains the remote host like user@host
open my $def_in, '<', '/dev/null';
$self->{ssh} = Net::OpenSSH->new($ssh_sr, default_stdin_fh => $def_in)
+;

# @cmd contains the traceping command to launch remotely via the exist
+ing SSH connexion.
my $killed;
...
waitpid $pid, 0;
close $f_stdout;
close $f_stderr;