use strict;
use Win32::Perms;
my $path = shift @ARGV;
my $perms = new Win32::Perms($path) || die "\n$^E\n";

if ( my $counter = $perms->Get (\ my @list))
{
	print "\n$ counter = Total number of ACES\n";
	foreach my $Ace (@list)
	{
		next unless ("DACL" eq $Ace->{Entry});
		my $account = ("" ne $Ace->{Domain})? "$Ace->{Domain}\\":"";
		$account .=$Ace->{Account};
		print "\tAccount: $account\n";
		print "\tPath " . $perms->Path() . "\n";
		print "\tType: ", $Ace->{ObjectName}, "\n";
		print "\tAccess: ", $Ace->{Access}, "\n";
		print "\n";		
	}
}