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