Select Code to Download

$ssh = Net::OpenSSH->new($ZFS_HOST,
                         ctl_dir => $SSH_CTLDIR,
...
                         master_opts => '-vvv',
                         master_stderr_fh => \*LOG);

my ($stdout, $stderr) = $ssh->capture2({timeout => 20}, "$ZFS_CMD $typ
+e $UID $IDname $ou:");
$ssh->error and print LOG "Command $ZFS_CMD failed: " . $ssh->error;
print LOG "OUT=$stdout, ERR=$stderr, EXIT=$?\n";
print LOG "changeZFS() msg:$stdout\n";
return $stdout;