use Fcntl ':mode'; $mode & S_IFDIR; S_ISDIR($mode);