Help for this page

Select Code to Download

Select or download this
```
my $mode = (stat "foo")[2];
```

Select or download this

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