Perl Program

Your job is to write a program that looks for files with incorrect permissions. In particular, I want to know any file that is writeable by normal users in any of the following directories.

/usr/bin
/bin
/sbin
/etc
/var
/usr/local

Just print the name of the file, along with a warning message
WARNING: /usr/bin/ls is writeable by non-system people.
WARNING: /bin/bash is writeable by non-system people.