my $ssh = Net::OpenSSH->new(...);
...
undef $ssh;

##</code><code>##

$ssh->disconnect;