finddepth (\&update_file , "C:\\elmPaul" );

sub update_file 
{  
    if( /(.*)$old_hostname(.*)/i )
       {
  $concat = "$1$new_hostname$2";  
 rename($_, $concat) || print "error can't renames:$!";       
        }