use strict;
use Win32::Perms;
my $path = 'c:/temp';
my $folder_ace = shift @ARGV;
my $subfolder_ace = pop @ARGV;
my $perms = new Win32::Perms($path) || die "\n$^E\n";
print "\nPath: " . $perms->Path(); 
$perms->Add('MYDOMAIN\bloggJo', $folder_ace|$subfolder_ace, ACCESS_ALLOWED_ACE_TYPE, OBJECT_INHERIT_ACE | CONTAINER_INHERIT_ACE);	
if ($perms->Set())
{
	print "\nDone\n";
}
else
{
	print "\nFailed\n";
}