# various ways of starting a connection returning a $pid
 my ($in, $out ,$pid) = $ssh->open2("foo");
 my ($pty, $pid) = $ssh->open2pty("foo");
 my ($in, $out, $err, $pid) = $ssh->open3("foo");
 my ($pty, $err, $pid) = $ssh->open3pty("login");

##</code><code>##

kill 9, $pid;

##</code><code>##

use Proc::Killfam;
killfam 9, $pid

##</code><code>##

$0 = 'rastoboy-ssh'; # :-)