Select Code to Download

use Win32::FileSecurity qw(Get Set MakeMask);

...
Get( $filename, \%hash ) ;
$hash{$group_name} = $perms;
Set( $filename, \%hash ) ;