# Some code
  my $mask = S_IWUSR | S_IWGRP | S_IWOTH;

  # Some more code

  return unless $dirStats[2] & $mask == $mask;
  # Even more code