void
S_IFMT(...)
    PREINIT:
        dXSTARG;
    PPCODE:
        PUSHu(items ? (SvUV(ST(0)) & S_IFMT) : S_IFMT);