use feature 'state';

sub printattr
{
    state $attrs = [ qw( --- --x -w- -wx r-- r-x rw- rwx ) ];
    state $maxi  = $#$attrs;
    my   ($file) = @_;

    print '[';
    print $attrs->[$_ < $maxi ? $_ : $maxi] for split //, (stat $file)[2];
    print "]\n";
}