Help for this page

Select Code to Download

Select or download this

use Net::OpenSSH;

...
print "Ending...\n";
kill 'INT', $pid;
waitpid ($pid, 0);