Help for this page

Select Code to Download


  1. or download this
    opendir(DIR, $PWD) or return warn("$0: $! [$PWD]");
...
  2. or download this
    use File::Find::Rule;

rename $_ => "${_}z" or warn "$0: $! [$_]"
  for find(file => in => $ARGV[0]);