Set wmiFileSecSetting = GetObject ("winmgmts:Win32_LogicalFileSecuritySetting.path='d:\\programming'")
RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)

##</code><code>##

use Win32::OLE;
$wmiFileSecSetting = Win32::OLE->GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path='d:\\programming'");
$RetVal = $wmiFileSecSetting->GetSecurityDescriptor($wmiSecurityDescriptor);