Help for this page

Select Code to Download


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