Because the mode contains both the file type and its permissions, you 
+should mask off the file type portion and (s)printf using a "%o" if y
+ou want to see the real permissions.

    $mode = (stat($filename))[2];
    printf "Permissions are %04o\n", $mode & 07777;In scalar context, 
+stat returns a boolean value indicating success or failure, and, if s
+uccessful, sets the information associated with the special filehandl
+e _.

The File::stat module provides a convenient, by-name access mechanism:

    use File::stat;
    $sb = stat($filename);
    printf "File is %s, size is %s, perm %04o, mtime %s\n", 
        $filename, $sb->size, $sb->mode & 07777,
        scalar localtime $sb->mtime;
[download]