my $oct_mode = sprintf "%lo", $dec_mode; 
        if (-O $private_dir and ($oct_mode == 40700)) { return } 
        elsif (-O $private_dir and ($oct_mode != 40700)) {