use strict;
use warnings;

use Win32::TieRegistry qw( Delimiter / KEY_READ KEY_WRITE );
use Win32 qw(
  DACL_SECURITY_INFORMATION
  SACL_SECURITY_INFORMATION
);


my $path = 'LMachine/Software/Classes';
my $key1 = 'opendocument.WriterDocument.1';
my $key2 = 'opendocument.WriterGlobalDocument.1';

my $r = $Registry->{"$path/$key1"};
print $r->{"/"},"\n";

my $sec;
$r->RegGetKeySecurity( DACL_SECURITY_INFORMATION, $sec, [] );

# Only have read access on this - but can manually run regedit
# and change permissions
my $r2 = $Registry->Open("$path/$key2", {Access => KEY_READ(), Delimiter=>"/"});
#my $r2 = $Registry->{"$path/$key2"};
print $r2->{"/"},"\n";
$r2->RegSetKeySecurity( DACL_SECURITY_INFORMATION, $sec );