#!/usr/bin/perl
use Fcntl ":mode";

my @u=lstat('cb/');
printf "%lo\n",$u[2] & 0777777;
printf "%lo\n",($u[2] & 0777777) & S_IFDIR ;