$object->Allow( $defAdminSid, FULL, KEY)|| print "Error allowing(1)\n"; 
$object->Allow( 'jpavel', FULL)|| print "Error allowing(2)\n";
$object->Allow( {Account=>'jpavel', Mask=>FULL } )|| print "Error allowing(3)\n";
$object->Allow( $defAdminBinSid, FULL, KEY)||print "Error allowing(4)\n";
$object->Add( $defAdminSid, FULL, ALLOW, KEY)|| print "Error adding(1)\n"; 
$object->Add( 'jpavel', FULL, ALLOW, KEY)|| print "Error adding(2)\n";
$object->Add( {Account=>'JPAVELTOO\\jpavel', Mask=>FULL , Type=>ALLOW, Flag=>KEY} )|| print "Error adding(3)\n";
$object->Add( $defAdminBinSid, FULL, ALLOW, KEY)||print "Error adding(4)\n";
$object->SetDacl()||print "Error setting!";
$object->Close()|| print "Error closing!";