use strict ‘vars’;
use Win32::Perms;
my  $prms = new Win32::Perms(“\\\\server1\\d$\\”) || die “$!, $^E\n”;
print $prms->Path();
if ($prms->Allow(‘User_foo’, FULL | FULL, OBJECT_INHERIT_ACE | CONTAINER_INHERIT_ACE))
{
	print “\nDone\n”;
	$prms->Set();
}
$prms->Dump;