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