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


##</code><code>##

my ($stdout, $stderr) = $ssh->capture2({timeout => 20}, "$ZFS_CMD $type $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;