
BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}

use Win32::FileSecurity qw(Get EnumerateRights);

$loaded = 1;
print "ok 1\n";

print STDERR "##### This will work only when files are in NTFS #####\n";

foreach (<*>) {
    next unless -e $_;
    my(%hash) = ();
    if ( Get( $_, \%hash ) ) {
        print STDERR "----- File: $_ -----\n";
	while( ($name, $mask) = each %hash ) {
	    print STDERR "$name:\n\t"; 
	    EnumerateRights( $mask, \@happy ) ;
	    print STDERR join( "\n\t", @happy ), "\n";
	}
    } else {
	print( "Error #", int( $! ), ": $!" ) ;
    }
}


