Win32::FileSecurity::Get($dir, \%permissions) or die $!;
$permissions{ 'Everyone' } =
   MakeMask( qw( READ GENERIC_READ GENERIC_EXECUTE ) );
Win32::FileSecurity::Set($dir, \%permissions) or die $!;