#!/usr/bin/perl
use constant GROUP_READ => 0040;
use constant OWNER_READ => 0400;
my $mask = GROUP_READ | OWNER_READ;
printf "my mask is %04o", $mask;