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