use Win32::OLE;
use Data::Dumper;

$wmi = Win32::OLE->GetObject('winmgmts:root/cimv2');
$query = 'SELECT * FROM Win32_LogicalFileSecuritySetting WHERE Path="d:\\\\Programming"';
$resultset = $wmi->ExecQuery($query);
foreach $obj (in $resultset) {
	$rc = $obj->GetSecurityDescriptor($sec);
	print "Path=[$obj->{Path}] rc=[$rc]\n";
	print Data::Dumper->Dump([$sec], [qw(*sec)]);
}

##</code><code>##

Path=[d:\Programming] rc=[0]
$sec = undef;