use Fcntl ':mode';
$mode = (stat($filename))[2];

$user_rwx      = ($mode & S_IRWXU) >> 6;