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

my %hash;
$perms = MakeMask( qw( FULL ) );
Get( $filename, \%hash ) ;
$hash{$group_name} = $perms;
Set( $filename, \%hash ) ;