How to check in Perl if the file permission is greater than 755?

Question

For a unix file, I want to know if Group or World has write permission on the file.

I\'ve been thinking on these lines:

my $fpath   = \"orion.proper         


        

Answer 1

#!/usr/bin/perl

use warnings;
use strict;

chomp (my $filename = );

my $lsOutput = `ls -l $filename`;

my @fields = split (/ /,$lsOutput);

my @per = split (//,$fields[0]);

print "group has write permission \n" if ($per[5] eq 'w');

print "world has write permission" if ($per[8] eq 'w');