Как проверить в Perl, если разрешение файла больше, чем 755?

Для файла Unix я хочу знать, есть ли у группы или мира разрешение на запись в файл.

Я думал об этом:

my $fpath   = "orion.properties";
my $info    = stat($fpath) ;
my $retMode = $info->mode;
$retMode = $retMode & 0777;

if(($retMode & 006)) {
  # Code comes here if World has r/w/x on the file
} 

Благодарю.

Ответы на вопрос(2)

Ваш ответ на вопрос