Select Code to Download

root     15347 15339 15261  0.0  1.2  57984 48320 ?        S    Jul08 
+  4:37   /usr/bin/perl /srv/www/cgi-bin//sysManager.pl /srv/www/cgi-b
+in/
root     18773 18773 18773  0.0  0.2  12352  8576 pts/0    Ss+  Aug09 
+  0:00     ssh -xMN -o NumberOfPasswordPrompts=1 -o PreferredAuthenti
+cations=keyboard-interactive,password -S /root/.libnet-openssh-perl/h
+scroot-[hostnameRemoved]-15347-95046 -o User=[usernameRemoved] -- [ho
+stnameRemoved]
root     18775 15339 15261  0.0  0.2  12096  8064 ?        S    Aug09 
+  0:00     ssh -S /root/.libnet-openssh-perl/[usernameRemoved]-[hostn
+ameRemoved]-15347-95046 -o User=[usernameRemoved] -- [hostnameRemoved
+] [cmdRemoved]

my $ssh = Net::OpenSSH->new($host, (user => $username, password => $pa
+ssword, timeout=>30));
my($stdout, $stderr) = $ssh->capture2({timeout => 30}, $cmd);