my $mode = (stat "foo")[2];

##</code><code>##

my $mode = (stat "foo")[2];
my $mask = 777 -
    join '', (($mode&0700)>>6, ($mode&0070)>>3, ($mode&0007));
umask oct $mask;