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