use Win32::Perms;
use diagnostics;
use strict;

my $path = "c:\\temp\\test";
my $login = "hostname\\testuser";
my $Dir  = new Win32::Perms($path) or die "new: $^E";
$Dir->Add($login, CHANGE, ACCESS_ALLOWED_ACE_TYPE, OBJECT_INHERIT_ACE | CONTAINER_INHERIT_ACE ) or die "allow: $^E";
$Dir->Set() or die "set: $^E";
$Dir->Close();