$mode = sprintf '%04o', (stat $file)[2] & 07777;
print "Permissions are $mode\n";