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

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