my @s = lstat $dirname or die "stat $!"; 
-l _ and die "islink $!"; 
chmod+($s[2] | 02000), $dirname or die "chmod";