Select Code to Download

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: $!";