$winReg = "registry:HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\SecurePipeServers\\Winreg";
$object = new Win32::Perms($winReg);
$object->Remove(-1)|| print "Error removing!";
#$object->Add( %hash )|| print "Error adding $defAdminName\n";
#$object->Allow( %hash )|| print "Error allowing.\n";
#$object->Allow( $defAdminName, 'FULL', 'KEY')|| print "Error allowing(2)\n"; 
$object->Allow( $defAdminSid, 'FULL', 'KEY')|| print "Error allowing(3)\n"; 
$object->Allow( 'jpavel', FULL)|| print "Error allowing(4)\n";
$object->Allow( {Account=>'jpavel', Mask=>FULL } )|| print "Error allowing(5)\n";
$object->Allow( $defAdminBinSid, 'FULL', 'KEY')||print "Error allowing(6)\n";
$object->Add( $defAdminSid, 'FULL', 'ALLOW', 'KEY')|| print "Error adding(3)\n"; 
$object->Add( 'jpavel', FULL, 'ALLOW', 'KEY')|| print "Error adding(4)\n";
$object->Add( {Account=>'jpavel', Mask=>FULL , Type=>ALLOW, Flag=>KEY} )|| print "Error adding(5)\n";
$object->Add( $defAdminBinSid, 'FULL', 'ALLOW', 'KEY')||print "Error adding(6)\n";
$object->SetDacl()||print "Error setting!";
$object->Close()|| print "Error closing!";