Just use the regular stat function.

From perldoc -f stat

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

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

-----------------------------

-Blake