...my $umask = umask(0066); # temporarilly change to -rw-------open(OUT, '>', $logfile) || die " '$logfile' ($!)";umask($umask); # restore to whatever it was for other code purposes