# Create / Remove ZFS-Directories
sub changeZFS {
	my $type = shift;
	my $UID = shift;
	my $IDname = shift;
	my $ou = shift;
	my $msg;
	my ($stdout, $stderr, $exit) = undef;
	my $ssh = Net::OpenSSH->new("$ZFS_HOST", ctl_dir => $SSH_CTLDIR, user => $SSH_USER, passwd => $SSH_PWD);
		$ssh->error and return "Cannot Create Homedirectory $ZFS_HOST: " . $ssh->error();
	print LOG "changeZFS(): $ZFS_HOST: $ZFS_CMD $type $UID $IDname $ou\n";
	($stdout, $stderr, $exit) = $ssh->capture({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=$exit\n";
	print LOG "changeZFS() msg:$stdout\n";
	return $stdout;
}