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

Для файла unix я хочу знать, есть ли у Group или World права на запись в файл.

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

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
} 

Спасибо.