Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...

my ($out, $err, $exit ) = $ssh->cmd('su - root -c "touch /var/tmp/sill
+y3"', '*******');
print "out = $out\nerr = $err\nexit = $exit\n";

borris: Login completed, opening dummy shell channel.
borris: channel 0: new [client-session]
...
err = su: Sorry

exit = 1