Use Win32::Perms;
My $path = ‘c:/temp’;
My $dir = new Win32::Perms($path) || die “\n$E, $^E\n”;
$dir->Add(‘MYDOMAIN\BloggsJo’, READ|EXECUTE, ACCESS_ALLOWED_ACE_TYPE, OBJECT_INHERIT_ACE | CONTAINER_INHERIT_ACE);