Select Code to Download

use Net::OpenSSH;
$Net::OpenSSH::debug = -1;

...
while(1) {
        my($stdout, $stderr) = $ssh->capture2({timeout => 30}, "sleep 
+5");
}

# ctl_path: /root/.libnet-openssh-perl/username-host.domain-19342-2284
+20, ctl_dir: /root/.libnet-openssh-perl/ 
# _is_secure_path(dir: /root/.libnet-openssh-perl, file mode: 16832, f
+ile uid: 0, euid: 0 
...

# call args: ['ssh','-S','/root/.libnet-openssh-perl/username-host.dom
+ain-19342-228420','-o','User=username','--','host.domain','sleep 5']
# open_ex: ['ssh','-S','/root/.libnet-openssh-perl/username-host.domai
+n-19342-228420','-o','User=username','--','host.domain','sleep 5']