Help for this page
#!/usr/bin/perl -w use strict; ... chmod($dirmode, $_) if (-d $_); }
#!/usr/bin/perl -w use strict; ... chmod($dirmode, $_) if (-d $_) or warn $!; }