Como fazer check-in no Perl se a permissão do arquivo for maior que 75

Para um arquivo unix, quero saber se o Grupo ou o Mundo tem permissão de gravação no arquiv

Eu estive pensando nestas linhas:

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
} 

Obrigado