Select Code to Download

use warnings;
use strict;
...

    print "Dir: $dir, Perm: $perm\n";
}

Dir: /usr/tmp, Perm: -w
Dir: /usr/tmp, Perm: -r

use warnings;
use strict;
...
        print "Can $perm $dir\n";
    }
}

Can -w .
Can -r .