use Win32::Perms;
my $dir = new Win32::Perms('c:/temp')||return 0;
$dir -> Remove ('everyone');
$dir -> Set(); # here is where we apply the new perms
$dir -> Dump;