use Win32::Perms;
my $dir = new Win32::Perms('c:/temp')||return 0;
$dir -> Remove ('everyone');
$dir -> Dump;