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

... Later

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

##</code><code>##

$ ls -l /etc/passwd
-rw-r--r--. 1 root root 1289 Jul 22 16:27 /etc/passwd
$ ./perms-module.pl /etc/passwd 644 root root
mode=420