sub is_safe_file {
   my $path = shift;
   stat($path) || return;    # mysteriously vaporized
   my ( $dev, $ino, $mode, $nlink, $uid, $gid ) = stat(_);

   return 0 if $uid != 0 && $uid != $<;
   return 0 if $mode & 022;
   return 1;
} ## end sub is_safe_file

##</code><code>##

ls -la perldb.ini
-rw-r--r-- 1 jgpuckering 197615 140 Sep 18 11:44 perldb.ini

##</code><code>##

perl -MFile::stat -E "printf '%%07o', stat('perldb.ini')->mode"
0100666