in reply to Re^2: check if file is executable by user/group/world?
in thread check if file is executable by user/group/world?

Sorry!Utilitarian I just given the hint, and missed something,Below the code I just tried,

 use Data::Dumper;
use Fcntl ':mode';

my $filename="pl_bak.pl";
my @array=lstat($filename);
$permissions = sprintf "%04o", S_IMODE($array[2]);
print "File permissions: $permissions\n";

[download]
Update

Removed a file type line.

In Section Seekers of Perl Wisdom