Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# Uncomment next two lines to see all data from %group hash.
#use Data::Dumper;
#print Dumper \%group;

use Win32::FileSecurity;

...
  @perms = $perms[0]; # only print one permission while testing.
  print "\t\t\t$_\n" foreach @perms;
}