use Win32::OLE;
use Win32::OLE::Variant;
$wmiFileSecSetting = Win32::OLE->GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path='E:\\VK'");
my $wmiSecurityDescriptor = Win32::OLE->GetObject('winmgmts:Win32_SecurityDescriptor');
my $v = Variant(VT_DISPATCH|VT_BYREF,$wmiSecurityDescriptor);
$RetVal = $wmiFileSecSetting->GetSecurityDescriptor($v);
print "$RetVal;[".$v->Get->{Owner}->{Name}."]";