#!/usr/bin/perl -w

$file="/tmp/test.file";

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

##</code><code>##

Permissions are 0744