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

##</code><code>##

my $mode = (stat($file))[2];
my $perms = sprintf "%04o", $mode &07777;
print "EVIL PERSON with $file" if $perms eq '0777';

##</code><code>##

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

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