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