eg% peg chmod Temp.pm -nz p
    **** (331) sub _gettemp {
    523:    chmod(0600, $path);
    545:    chmod(0700, $path);
    **** (645) sub _force_writable {
    647:  chmod 0600, $file;