Select Code to Download

...
foreach $word (@file) {
...
    rename($word, $new) or die "unable to rename $word to $new: $!\n";
  }
}