copy( "$dir\\$file", "C:\\testfiles\\$file" )
          or die "Failed to copy $file: $!\n";
    rename "C:\\testfiles\\$file", "C:\\testfiles\\$newfile";