Para un archivo Unix, quiero saber si Group o World tiene permiso de escritura en el archivo.

He estado pensando en estas líneas:

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
} 

Gracias