Select Code to Download

...
for ( @found ) {
...
      rename($_,$newname) or warn "can't rename $_ to $newname:$!\n";
   }
}