use Win32::OLE;
use Win32::OLE::Variant;
$wmiFileSecSetting = Win32::OLE->GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path='D:\\Programming\\test\\a.pl'");
my $wmiSecurityDescriptor = Win32::OLE->GetObject('winmgmts:Win32_SecurityDescriptor');
my $v = Variant(VT_DISPATCH|VT_BYREF,$wmiSecurityDescriptor);
$RetVal = $wmiFileSecSetting->GetSecurityDescriptor($v);

foreach my $ace (@{$v->Value->{DACL}}) {
	print $ace->{Trustee}->{Domain}.'\\'.$ace->{Trustee}->{Name}.': '.$ace->{AccessMask}."\n";
}