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

##</code><code>##

    if (-O $private_dir and ($dec_mode == 040700)) { return }
    elsif (-O $private_dir) {