perl -MCPAN -le 'CPAN::Config->init;$fulp=$INC{q[CPAN/Config.pm]}; printf qq[%-72s %o\n],$fulp,((stat $fulp)[2]& 07777 )'