($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
		 $atime,$mtime,$ctime,$blksize,$blocks)
					= stat($file);

... Later

$mode = $mode & 07777;
print "mode=".$mode."\n";