perl script to check read/write/execute permission for 'others'

I want to check access rights permissions not for 'user', not for 'group', but for 'others'.

I want to do it by system command in which i want to use 'ls -l' and 'awk' command.

I have written the following program :

#!/usr/bin/local/perl
#include <stdlib.h>

system ("ls -l | awk '/^-......r../ {print $9 "  is readable for others}' ");
system ("ls -l | awk '/^-.......w./ {print $9 "  is writable for others}' ");
system ("ls -l | awk '/^-........x/ {print $9 "  is executable for others}'");

I have tried most of the system command syntax, google can give.. have also tried with open and exec.. but all efforts in vain

grateful if you help..

you can check with stat

 
perldoc -f stat

stat - perldoc.perl.org