Help for this page
my $filename = 'filename'; my $perms = ((stat($filename))[2] & 07777); # Just permissions, not + type my $newperms = $perms ^ 02000; # Add the group sticky +bit chmod $newperms, $filename or die "Could not change permissions: $!";