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